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;