Rückgabewert von Function freigeben

[KrasserChecker]

Richtig, wollte ich auch gerade sagen. HAbe nur zu langsam

Delphi-Quellcode:

function CurrentOL: Pointer;
begin
  if ... then Result := @EineKomponente 
  else Result := @EineAndereKompoente;   
end;

procedure DoSomething; 
var temp: Pointer; 
begin 
  temp := CurrentOL; 
  temp^.Free;
  temp := TIrgendwas.Create(form1); 
end;