[[seoane]]

Para estos casos esta 'var'

Código Delphi [-]
function Ejemplo(Parametro: Integer; var Resultado: string): boolean;
begin
  Resultado:= '';
  while Parametro > 0 then
  begin
    Resultado:= Resultado + 'A';
    dec(Parametro);
  end;
  if Length(Resultado) > 0 then
    Result:= TRUE
  else
    Result:= FALSE;
end;

// Por ejemplo
var
  Str: string;
begin
  if Ejemplo(5,Str) then
    ShowMessage(Str);
end;