[Dzman]

Я делаю проект на управление оборудованием через модуль Ethernet Jerome и столкнулся с рядом проблем:
1)Кодировка сообщений которые приходят с модуля.
как приходит:

как должно приходить:

проблема именно в Buider'e 2009 т.к в Borland Delphi 7 такой проблемы нет, но чисто эстетически мне нравится Bulder.
2)После подключения примерно через 15-20 секунд выводится ошибка:
Error 10060

искал в интернете решение проблемы, нашел только смутное объяснение о том , что программа превысила время данное ей на ответ.
3)Если я подключился к модулю каким либо образом (через браузер/стандартный терминал/свою программу) то на попытку подключиться к ней через мою программу снова выскакивает ошибки:

или
http://s1.ipicture.ru/uploads/20130208/C6qFwDJE.jpg
но при этом я могу подключиться к модулю через браузер или стандартный терминал и ошибки не выскакивают.

Код:

procedure TForm1.B1Click(Sender: TObject);
begin
CS1.Socket.SendText('$KE,PSW,SET,Jerome'+#13+#10);
end;

procedure TForm1.B2Click(Sender: TObject);
begin
CS1.Socket.SendText('$KE'+#13+#10);
end;

procedure TForm1.CS1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Connect');
end;

procedure TForm1.CS1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(CS1.Socket.ReceiveText);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CS1.Close;
CS1.Active:=False;
CS1.Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
CS1.Active:=True;
CS1.Open;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
CS1.Socket.SendText('$KE,WR,1,0'+#13+#10);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
CS1.Socket.SendText('$KE,WR,1,1'+#13+#10);
end;

end.