вторая проблема:
вроде бы решил, но убого
решил выключать и включать ClientSocket каждые 15 секунд.
ошибка все равно есть, но программа после ошибки продолжает работать.
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
m:=m+1;
f:=m Mod 16;
if f=15 then
begin
CS1.Active:=False;
end;
if f=1 then
begin
CS1.Active:=True
end;
end;