Data em InputBox
Em um programa com contas a pagar e contas a receber, você precisa pegar a data do próximo vencimento, caso o pagamento fosse parcial, então ai vai uma idéia use o imputBox......
procedure Verifica_Data;
var vdata : string;
begin
vdata := EmptyStr;
while vdata = EmptyStr do
begin
try
vdata := InputBox(Informe a Data,Data,DateToStr(Date));
StrToDate(vdata);
Except
vdata := EmptyStr;
end;
end;
Edit1.Text := vdata;
end;