DateTimePicker dtkTime - Zeit wird nicht geändert

[Mazel]

Hallo,

ich habe in meinem Programm ein Fenster für Einstellungen. Wird das Fenster aufgerufen, so speichere ich alle möglichen Einstellungen in einem Record um diese dann, bei einem Klick auf den Abbruchbutton wieder hineinzu schreiben, so dass alle Änderungen aufgehoben werden. Nun klappt dass alles ganz gut mit String-, Boolean-, TDate- und Bytewerten aber irgendwie scheint TTime für meinen Picker eine Ausnahme zu machen. Wenn ich auf Abbrechen klicke, wird einfach der alte Wert nicht eingetragen, es bleibt der neue.
Ist jemand dieses Phänomen schon einmal aufgefallen? Mache ich etwas falsch?

Delphi-Quellcode:

// Record für Settings
 TSettings = Record
    Focus: Boolean;
    Start: Boolean;
    Date: TDate;
    Time: TTime;
    Minutes: String;
  end;

procedure GetSettings;
begin
 with Main do
  begin
   Settings.Focus := RBtFocus.Checked;
   Settings.Start := CBxStart.Checked;
   Settings.Date := DTPDate.Date;
   Settings.Time := DTPTime.Time;   // hier wird der richtige Wert eingelesen
   Settings.Minutes := EdtMinutes.Text;
  end;
end;

procedure SetSettings;
begin
 with Main do
  begin
   RBtFocus.Checked := Settings.Focus;
   CBxStart.Checked := Settings.Start;
   DTPDate.Date := Settings.Date;
   DTPDate.Time := Settings.Time;   // hier passiert nichts
   EdtMinutes.Text := Settings.Minutes;
  end;
end;

Kann mir jemand helfen?

Gruß
Mazel