[pjmedina]

Funcion

Código Delphi [-]
function TModuloPrograma.Comprobar_Algo(var mensaje:string;var mensaje2:string) : ShortString;
var Mensaje_Error : ShortString
begin
Mensaje_Error := '';
try
// Cuerpo de lo que quiero hacer
 mensaje:='lo que sea';
 mensaje2:='lo que sea';
Except
// Si se produce un error que quiero controlar 
Mensaje_Error := 'se ha producido un error';
mensaje:='error';
mensaje2:='error';
End;
 
Result := Mensaje_Error;
end;

UTILIZACION

Código Delphi [-]
var
 sms,sms1,sms2:string;
begin
 sms:=ModuloPrograma.Comprobar_Algo(sms1,sms2);
end;

Espero que te sirva.

Saludos.