Danke, jetzt läuft's. Auf dem Formblatt befinden sich ein Edit-Feld, ein Button und die Komponente TIdSNTP. Hier der Quelltext:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNTP1.Host:='129.69.1.153';
Edit1.Text:=DateTimeToStr(IdSNTP1.DateTime);
end;
Es gibt allerdings immer noch ein Problem:
Wenn ich oft hintereinander auf den Button klicke, hängt sich das Programm irgendwann auf, wahrscheinlich eine Überlastung des Servers, oder so. Was muss ich noch ändern, damit das nicht passieren kann?