Как написать сервис-клиент используя Indy

[3vg3n]

неполучаеться написать сервис - клиент
который бы общался через инет с сервером
использую инди

вот код на ServiceExecute

While not Terminated do begin
if not idtcpclient1.Connected then idtcpclient1.Connect;


CB.action:='g';
CB.mess:='';
CStream.Clear;
CStream.SetSize(SizeOf(TCommBlock)) ;
CStream.WriteBuffer(CB, SizeOf(TCommBlock));
//IncomingMessages.Lines.Append(intto str(CStream.Size));
CStream.Position:= 0;
IdTCPClient1.IOHandler.Write(CStrea m, sizeof(TCommBlock));


ServiceThread.ProcessRequests(True) ;
end;

end;
служба коннектится но сразу выключается

И сразу учимся называть темы читабельно и со смыслом.
Кара за нарушение прописана в правилах раздела.
Рекомендую изучить.