Rückgabewert von Function freigeben

[LoL]

ok

Delphi-Quellcode:

var c1,c2 : TComponent;
    b : boolean;

function CurrentOL : TComponent;
begin
  if b then result := c1
  else result := c2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var cur : TComponent;
begin
  b := true;

  cur := CurrentOL;
  cur := TComponent.Create(form1);

  if c1 = nil then showmessage('nil');
end;

c1 ist aber hier nach immer noch nil! Woran kann das liegen?