Function con retorno multiple

[DarkMan]

Yo lo haría usando arrays:

Código Delphi [-]
 Type TResultadoMultiple= Array [1..3] of String;
 ...
 
 Function DevolverDatos(CodCliente: Integer): TResultadoMultiple;
 begin
  Result[1]:='lalala';
  Result[2]:='lelele';
  Result[3]:='lololo';
 end;
...
 
 Procedure TForm1.Button1click(Sender: TObject);
 var  ResultadoMultiple: TResultadoMultiple; 
 begin
  ...
  ResultadoMultiple:= DevolverDatos(56);
  ...
 end;