Gracias por tu aporte Caral ^^ a los que empezamos hace poco a programar siempre nos van bien este tipo de textos
Para complementar tu post con más opciones, añadiré otra posible manera de realizar el procedimiento que comentas:
Código Delphi
[-]
Procedure TForm1.suma1(num1,num2,sumado: String; OUT x: String; OUT b: Boolean);
begin
If StrToFloat(num1)+StrToFloat(num2)=StrToFloat(sumado) then
begin
x:= sumado;
b:= true;
end
else
b:= false;
end;
Este procedimiento es exactamente igual que el tuyo, pero utilizando parámetros al igual que en la función de más arriba.
Así, mediante los parámetros hacemos que el procedimiento sea más versátil y sirva para cualquier otro conjunto de datos (3 strings de entrada para los sumandos y el resultado a comprobar, 1 string de salida y 1 booleano de salida.
Un saludo.