прием передача сообщения от сервера клиенту и на оборот

[Lokos]

Здравствуйте.
Полазил по интернету и по форуму но нужной информации так и не нашел.
Соединить клиента и сервера получилось делаю так.
клиент

procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPC.Port:=1001;
IdTCPC.Host:='192.168.0.4';
IdTCPC.Connect;
end;
procedure TForm1.IdTCPCConnected(Sender: TObject);
begin
   memo1.Lines.Add(IdTCPC.IOHandler.ReadLn());
end;

сервер

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
   Acontext.Connection.SendCmd('connected');
end;

Вопрос в том на какое события происходит прием сообщения и в каком событии делать отправку.
Спасибо.

[Lokos]

Переделал клиент следующим образом

procedure TForm1.Button1Click(Sender: TObject);
var
s:string ;
begin
  s:=edit1.Text;
  IdTCPC.IOHandler.Write(s);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPC.Port:=8088;
IdTCPC.Host:='192.168.0.4';
IdTCPC.Connect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
IdTCPC.Disconnect;
end;

Сервер имеет такой вид

procedure TForm1.ServerConnect(AContext: TIdContext);
begin
memo1.Lines.Add('Пользователь подключен');
end;

procedure TForm1.ServerException(AContext: TIdContext; AException: Exception);
begin
memo1.Lines.Add(Aexception.Message );
end;

procedure TForm1.ServerExecute(AContext: TIdContext);
var
s:string;
begin
s:= AContext.Connection.IOHandler.ReadLn();
showmessage(s);
 end;

Подключение происходит но вот вывод сообщений не происходит не кто не скажет почему?
Делал все в точности по примеру, пример работает нормально

[Lokos]

Проблема решена заменил write на writeln.

[Lokos]

Сообщение от Lokos

Проблема решена заменил write на writeln.

Появилась еще одна проблема русские буквы приходят в виде знаков вопроса (????) как можно избежать данной проблемы.
Так же принимаю сообщения клиентом следующим образом

procedure TForm1.Button4Click(Sender: TObject);
var
   s:string;
begin
  s:= IdTCPC.IOHandler.ReadLn();
  memo1.Lines.Add(s);
end;

проблема в том что для того что бы получить сообщение приходится нажать кнопку. Как сделать так чтоб клиент сам определял что ему поступило сообщение и прочитывал его.
Пробовал сделать это на событие onconnect но программа просто зависает

[bulldog5293]

попробуй переделать

procedure TForm1.Button4Click(Sender: TObject);
var
   s:string;
begin
  s:= IdTCPC.IOHandler.ReadLn();
  memo1.Lines.Add(s);
end;

на

procedure TForm1.Button4Click(Sender: TObject);
var
   s:TStringList;;
begin
s:=TStringStream.Create;
begin
IdTCPC.IOHandler.ReadLn((s));
  memo1.Lines.Add(s);
end;
end;