procedure TForm1.Timer1Timer(Sender: TObject);
begin
label4.Caption := timetostr(time) {uppdatera klockan varje sekund}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
label4.caption := timetostr(time) {sätt tiden direkt när formen laddas}
label2.caption := datetostr(date) {skriv datum}
end;