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;