TCPServer, TCPClient

[seobot]

Меня интересует вопрос: Почему когда я запускаю на удаленом сервере Серверное приложение и на своем компе клиентское - не происходит соединение?

клиент:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TcpClient.Sendln(Edit1.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPClient.RemoteHost:='82.117.160.91';
  TCPClient.RemotePort:='1090';
  TCPClient.Connect;
end;

procedure TForm1.TcpClientConnect(Sender: TObject);
begin
Form1.Caption:= 'Connect';
end;

end.

сервер:

procedure TForm1.FormCreate(Sender: TObject);
begin
TCPServer.LocalPort:='1090';
TCPServer.Active:= true;
end;

procedure TForm1.TcpServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
var
 msg: string;
begin
 repeat
   begin
     msg:= TCPServer.Receiveln;
     if msg <> '' then Memo1.Lines.Add(msg);
   end
 until msg = '';
end;

end.

[bitSoft]

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPClient.RemoteHost:='82.117.160.91';
  TCPClient.RemotePort:='1090';
  TCPClient.Active := True;
end;

[seobot]

Все равно не пашет. В Мемо ничего не пишется...