Como hacer para que una funcion regrese varios valores

[jangel_ramirezm]

Hola saludos a todos
y antes que nada gracias a todos por tomarse el tiempo de leer este hilo
si alguien pudiera ayudarme(por favor ) mil gracias
esta es mi Duda : Tengo Un formulario que quiero utlilizar para seleccionar un rango de fechas( este regresa un valor "True" si se da click en el botón "Si" o "false" si se da click en el botón "No") y la funcion
donde lo mando llamar recibe como parametros a demás de otros las fechas
mi duda es ¿como le regreso el valor de cada fecha a la variable correspondiente ?
aqui muestro el codigo que uso :


Código Delphi [-]
function Input2Fechas(Caption:String;Msg:String;FechaI,FechaF:TDateTime ):Boolean;
var FF:TfrmInput2fechas ;
begin
FF:=TfrmInput2fechas.Create(nil);
FF.Caption:=Caption;
FF.lblTexto.Caption:=Msg;
FF.ShowModal;
FechaI:=FF.txtInicio.date;
FechaF:=FF.txtFin.date;
result:=FF.Resultado;
FF.Destroy;
end;









Este es un ej. de como quiero utilizar las fechas


Código Delphi [-]
procedure TForm1.btnpruebaClick(Sender: TObject);
var
Fecha1,Fecha2:TDate;
begin
if not Input2Fechas('Ejemplo','Introdusca las Fechas ',Fecha1,Fecha2) then
showmessage('No se capturaron las fechas')
else
showmessage('Fecha 1: '+datetostr(Fecha)+' Fecha2: '+datetostr(Fecha2));

end;










gracias por su ayuda