Function Add(a:integer; b:integer):integer;
begin
  result := a + b;
end;

Is this right?