Rückgabewert von Function freigeben

[LoL]

ich hab es nun:

Delphi-Quellcode:

var comp : TComponent;

procedure TForm1.Button1Click(Sender: TObject);
var p : Pointer;
begin
  p := @comp;
  TComponent(p^).free;  
  TComponent(p^) := TComponent.Create(form1);
  if comp = nil then showmessage('NIL');
end;