Rückgabewert von Function freigeben

[KrasserChecker]

Stell doch deine Methode einfach auf einen Var-Parameter um:

Delphi-Quellcode:

procedure CurrentOL(var Value : TComponent); 
begin 
  if ... then Value := EineKomponente 
  else Value := EineAndereKompoente; 
end;

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

Nein, vergiss es, mal wieder erst geschrieben und dann nachgedacht. Dadurch schreibst den neuen Zeiger ja nicht in die alte Variablen (EineKomponente oder EineAndereKompoente).