Lo he ejecutado.
No se elevan excepciones pero se corrompe la app.
Si tratas de hacer esto:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
LocalFoo: TObject;
S: String;
begin
FormFoo.Free;
LocalFoo:= nil;
S:= LocalFoo.ClassName;
MessageBox(0,0,PCHAR(S),0);
LocalFoo.Free;
end;
Aparece una excepcion en la línea
Si trato de hacer esto
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
LocalFoo: TObject;
begin
FormFoo.Free;
LocalFoo:= nil;
ShowMessage(LocalFoo.ClassName);
LocalFoo.Free;
end;
El antivirus se carga el ejecutable y no corre.
Saludos.