Una simple funcion de sumaen delphi,otra de las cosas que e aprendido de este lenguaje para dejar al monotomo visual basic 6. espero les sirva

Código:


{Funcion Para sumar 2 numeros.
}
function Sumar(num1,num2:integer):integer;
begin
Sumar := num1+num2; // Tambien podriamos poner Result:=num1+num2,pero veo mas facil llamando a la misma funcion
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('El Resultado es '+inttostr(sumar(5,5)));//Mostramos un mensaje al click,lo ponemos en Ascii ,llamamos la funcion sumar y ponemos los valores numericos!
end;

end.