Как IdSNTP заставить работать через прокси,для синхронизации времени с серврером временем. Работает только на машине где прописан шлюз.
procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNTP1.TransparentProxy.Host:='192.168.1.10';     //ip адрес машины где прописан шлюз   (испльзую прокси Usergate v2.8)
IdSNTP1.TransparentProxy.Port:=123;
IdSNTP1.Host:=' 204.152.184.72';
IdSNTP1.OpenProxy;
//IdSNTP1.Connect;
Form1.Button1.Enabled:=False;
form1.Caption:=DatetimeToStr(IdSNTP1.DateTime);
//IdSNTP1.Disconnect;
IdSNTP1.CloseProxy;
Form1.Button1.Enabled:=true;
//IdSNTP1.SyncTime;
end;
end.

Хочешь свой компонент написать?