函数为什么无法返回？

[earlybrow]

刚学delphi，不知道怎样才可以实现c中函数的return功能。
下面的函数 gogogo为什么返回的是two而不是one？如果要返回one，应该怎么办？
function gogogo:string;
begin
gogogo:='one';
gogogo:='two';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
self.Caption:=gogogo;
end;