idTCPClient не отправляет сообщения

[TwiX]

2 дня назад написал клиент-сервер, а теперь, второй час, не могу отправить сообщение...
Вот код:
Project1:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Connect;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  IdTCPClient1.IOHandler.Write('Hello');
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  Form1.Caption:='Connected';
end;

Project2:

procedure TForm2.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active:=true;
end;

procedure TForm2.IdTCPServer1Connect(AContext: TIdContext);
begin
  Form2.Caption:='Connected';
end;

procedure TForm2.IdTCPServer1Execute(AContext: TIdContext);
var
S:string;
begin
  S:=AContext.Connection.IOHandler.ReadString(6);
  Form2.Caption:=s;
end;

Настройки:
Client.Host:=127.0.0.1
Client.Port:=8080;
Server.DefaultPort:=8080;
Остальные - по дефолту.

Соединение происходит, но сообщение не отправляется...

[Pavelok]

не знаю, но на форуме нашел примерчик

[TwiX]

У меня уже мой давно начал отправлять) Сам не знаю почему)