[Dzman]

Хочу отправить сообщение: "$KE".

код:

Код:

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
end;

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

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

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

выдает ошибку при нажатии на B2:

адресс и порт прописываю на ClientSocket, сообщение: "Connect" в memo1 выводит.

в чем проблема?