Проблема с кодировкой в TIdTCPServer&TIdTCTClient

[RNT]

Пишу простое клиент-серверное приложение в Delphi 2009 , программа состоит из клиента и сервера , сервер получает сообщение и отправляет подтверждение , если написать русскими буквами , то придут вопросительные знаки.
Вот клиентская процедура, отправляющая сообщения:

procedure TForm1.Button1Click(Sender: TObject);
begin
    IdTCPClient1.Connect;
    IdTCPClient1.IOHandler.WriteLn(Edit1.Text);
    Edit1.Text:=IdTCPClient1.IOHandler.ReadLn;
    IdTCPClient1.Disconnect;
end;

Вот серверная процедура, принимающая сообщения:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
    Memo1.Lines.Add(AContext.Connection.IOHandler.ReadLn);
    AContext.Connection.IOHandler.WriteLn('Ok');
    AContext.Connection.Disconnect;
end;

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

[Квэнди]

Я же вас писал: если возникают проблемы с отображением русских символов, используйте реализации Tstream вместо обычных строк. Примеры реализации писал в этом разделе уже не однократно.

[RNT]

AContext.Connection.IOHandler.ReadS tream надо использовать ?

[Квэнди]

ну и писать и читать в этом случае надо потоки

[RNT]

В какой поток надо писать ? Какой надо читать ? Конкретно в моем примере

[Квэнди]

Пример в вложении

[RNT]

Спасибо ! Буду разбираться