Fecha del sistema y DateTimePicker

[marcoszorrilla]

Dado que la fecha y hora hagas lo que hagas se guardan juntas, y la parte entera es la fecha y la fraccionaria la hora, esto que sigue te funcionara sin problemas.

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 if Int(DateTimePicker1.Date) = Date then
 showMessage('Fecha correcta')
 else
 showMessage('Fecha Incorrecta');
 
 end;

Un Saludo.