Delphi - ayuda!!!

necesito saber como realizar llamadas a otros algoritmos en delphi, se que se usa procedure y function, pero no se como hacerlo :(

procedure mensaje(texto:String;
begin
showmessage(texto);
end;

function suma(A:extended;B:Extended):Extended;
begin
Result:=A+B;
end;

TForm1.Button1click(Sender:TObject);
begin
mensaje('Hola a todos');
showmessage(floattostr(suma(3,56+4,53));
end;

Suerte