Function con retorno multiple

[[duilioisola]]

Creo entender que tu problema se solucionaría pasando parametros por referencia:

Código Delphi [-]
procedure DameDireccionYTelefono(CodigoCliente : integer; var Direccion, Telefono : string);
begin
   {hacer el select}
   Direccion := FieldByName['DIRECCION'].AsString;
   Telefono := FieldByName['TELEFONO'].AsString;
end;

y la llamarías así:

Código Delphi [-]
var
   dir : string;
   tel : string;
begin
   ...
   DameDireccionYTelefono(123,dir,tel);
   ...
end;

[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;