Como hacer para que una funcion regrese varios valores

[[poliburro]]

Agrega dos miembros públicos al formulario, llamados FechaInicial: Date y Fecha Final de tipo Date. Una vez que hayas cerrado el formulario y de haber presionado afirmativamente, toma los valores de esos dos miembros y asignalos a las variables que deseas.

suerte.

[yusnerqui]

Hola
Esta otra también puede servirte:

Código Delphi [-]
Type
  TMyResult=Record
    V1:integer;
    V2:Real;
  End;

///después

Function MultiValor:TMyResult;
Begin
  Result.V1:=1;
  Result.V2:=5,67;
End;

Espero te sirva.

Saludos

[yusnerqui]

Hay que leer mejor, puse mi respuesta solo por el título de tu pregunta, lo ciento creo que lo que necesitas es pasar los parámetros de fecha a tu función por dirección en ves de por valor, así cuando esta retorne tendrá en dichas variables las fechas seleccionadas. Sería algo como:

Código Delphi [-]
function Input2Fechas(Caption:String;Msg:String;Var FechaI :TDateTime; Var 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;

aunque aclaro que la solución de los records que te di tambien podría ser una vía, pero esta última se ajusta más a lo que tienes hecho.

Saludos

[jangel_ramirezm]

Gracias a Poliburro por su respuesta
ya agregué los atributos publicos y asi quedó la función

Código Delphi [-]
FF:=TfrmInput2fechas.Create(nil,RootKey,SaveToKey );
    FF.Caption:=Caption;
    FF.lblTexto.Caption:=Msg;
    FF.ShowModal;
    FechaI:=FF.FechaInicio;
    FechaF:=FF.FechaFin;
    result:=FF.Resultado;
    ff.Destroy;

pero cuando mando llamar a la funcion
me muestra:
30/12/1899 creo que no le regresa ningun valor el codigo donde mando llamar a la funcion quedó igual. espero haber entendido bien tu respuesta ya vez no todo puede ser tan fácil como apuntadores(es una broma)

[jangel_ramirezm]

ha muchas gracias a todos ya está Ok

gracias a todos de nuevo por su valiosa ayuda