Function con retorno multiple

[Kipow]

Prueba utilizando el tipo variant;

Código Delphi [-]
var
   v : Variant;
   Direccion,
   Telefono : String;
 
begin
   // La funcion ConsultaSQL retorna un Variant; Obvio esta la debes de definir.
   V := ConsultaSQL('SELECT DIRECCION, TELEFONO FROM MITABLA');
   
   Direccion := V[0];
   Telefono := V[1];