[Lazarus-es] destruir objecto

[rnapoles en hlg.rimed.cu]

Salu2 lista tengo el siguiente código en un TButton
pero al ejecutarlo lanza un excepción

procedure TForm1.Button1Click(Sender: TObject);
begin
  FreeAndNil(Sender);
end;

Sin embargo lo ejecuto en delphi y hace lo que espero

muchas gracias de antemano


-- 
Daría todo lo que se por la mitad de lo que ignoro


-- 
Este mensaje ha sido analizado por MailScanner
en busca de virus y otros contenidos peligrosos,
y se considera que está limpio.
					Nodo Hlg.rimed.cu