.: Atomuhr :.

[ichbins]

zeig mal einen Screenshot.

Ohne Timer geht das so:

Delphi-Quellcode:

var
  internetzeit,pczeit:tdatetime;


procedure tform1.timer1ontimer;
begin
  // INTERNETZEIT DOWNLOADEN; Intervall von Timer1 = 60000
  internetzeit:=downgeloadete zeit;
  pczeit:=now;
end;

procedure tform1.timer2ontimer;
var
  auszugebendezeit:tdatetime;
begin
  // ZEIT AUSGEBEN; Intervall von Timer2 = 10
  auszugebendezeit:=now+internetzeit-pczeit;
  label1.caption:=timetostr(auszugebendezeit);
end;

//edit: du musst die colors von der Buttoncaption auf clblack setzten. welche Komponente verwendest du denn für die Buttons?