Простейшее клиент-серверное приложение в Delphi 2009

[RNT]

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

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

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

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

Также стоит посмотреть вложение.
Помогите правильно сделать программу.

[Квэнди]

IdTCPClient1.IOHandler.Write(Edit1.Text);

=>

IdTCPClient1.IOHandler.Writeln(Edit1.Text);

[RNT]

Заменил , все равно не работает

[Квэнди]

все равно не работает

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

[RNT]

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
IdTCPClient1.IOHandler.WriteLn(Edit 1.Text);
Edit1.Text:=IdTCPClient1.IOHandler. ReadLn; //На этом месте зависает
IdTCPClient1.Disconnect;
end;

[Квэнди]

Вывод:
1. Сервер ничего не пишет в сокет
2. Сервер не пишет перевод строки/возврат каретки
Действия:
дебаг сервера.

[RNT]

Сейчас я попробовал убрать строчку , на которую указал в предыдущем сообщении. Результат : сообщение доходит до сервера если написано английскими буквами , если написано русскими буквами то приходят вопросительные знаки , в чем дело ? В Delphi 2009 используется юникод , а это значит , что проблем с кодировками быть не должно

[Квэнди]

В Delphi 2009 используется юникод , а это значит , что проблем с кодировками быть не должно

Откуда такое утверждение?
Использование UTF кодировок лишь обязывает вас более явно указывать в многих случаях кодировку текста, для чего в Indy все есть.
Если у вас проект действительно сейчас сделан так как вы говорите то все должно работать. Если нет, выкладывайте тот проект, на котором сейчас проверяете, посмотрю.

[RNT]

Выкладываю проект , из которого я удалил одну строку , эта программа из windows работает почти нормально (проблема с кодировкой) , если запустить из delphi то выйдет ошибка

procedure TForm1.Button1Click(Sender: TObject);
begin
	IdTCPClient1.Connect;
	IdTCPClient1.IOHandler.WriteLn(Edit1.Text);
	IdTCPClient1.Disconnect;
end; //Через некоторое время после этой строки выйдет ошибка

[RNT]

Скриншот ошибки