//–Coloque este código em uma unit chamada Unt1 com um form
//–chamado Frm1 que tenha o evento OnCreate chamado FrmCreate.

unit Unt1;

interface

uses

Forms, Dialogs;

type
TFrm1 = class(TForm)
procedure FrmCreate(Sender: TObject);
end;

var
Frm1: TFrm1;

implementation
{$R *.dfm}

Function GetSum(a, b : Integer) : Integer;
begin
//Soma os dois números e retorna o resultado.
Result := a + b;
end;

procedure TFrm1.FormCreate(Sender: TObject);
var
total : Integer;
begin
//Mostra o resultado
total := GetSum(1,2);
ShowMessageFmt(‘%d + %d = %d’,[1,2,total]);

total := GetSum(62,444);
ShowMessageFmt(‘%d + %d = %d’,[62,444,total]);
end;

end.