Не могу понять почему процедура не принимает значение из функции

function Slovo1 (a , b : string): string;

begin
 a := 'qwer';
 b := 'rtyu';
 result := a + b;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
ShowMessage(Slovo1 (result));
end;

Почему ругается на result в ShowMessage(Slovo1 (result));?