DateTimePicker -> Minimale Uhrzeit ?

[MSSSSM]

Delphi-Quellcode:

procedure TForm13.DateMontagChange(Sender: TObject);
Var minTime :string;
begin
MinTime:= '12:00:00';
if StrToTime(minTime) < DateMontag.Time then
begin
   DateMontag.Time:=StrToTime(minTime);
end;
end;