1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
const c = 38871.9; // "gespeicherter" Zeitwert
var n: Double;
    d: Double;
begin
  n := Now;  // aktuelle Systemzeit
  d := Date; // aktuelles Systemdatum
  if n < c then Caption := 'c ist größer';
  if n = c then Caption := 'c ist gleich';
  if n > c then Caption := 'c ist kleiner';
end;