ServerSocket и ClientSocket

[Sensizu]

Доброго времени суток.
Пишу "простенький" чат, увы в кротчайшие сроки. Не совсем чат и прост, как минимум для меня, т.к. справится с одной проблемой не могу. Суть:

На форме чата лежит и ServerSocket, и ClientSocket. Ну как и во всех чатах на таких компонентах сервер должен создать порт а Клиент войти в порт. Ничего не получается, а если и получается, то просто угадыванием, и конечного результата это не даёт.
Кто может правильно предоставить как составить сокеты и какую информацию в них писать (ведь еще нужен socket.address если не ошибаюсь, а в статье, которую я читал, такого нет) - буду признателен.
Что бы как-то сделать это дело проще, предоставлю код:

procedure TchatForm.FormShow(Sender: TObject);
begin
ServerSocket.Socket.Close;
ServerSocket.Socket.Unlock;
ServerSocket.Port:=3000;
ServerSocket.Active:=True;

ClientSocket.Socket.Unlock;
ClientSocket.Port:=3000;
ClientSocket.Address:=loginform.uad d.text;
ClientSocket.Active:=True;
end;

Итог: Выдает ошибку "Запрашиваемое имя верно, но данные запрошеного вида не найдены". Почему так? И о каких данных идёт речь.
(мне нужна простая реализация, проблема только в том, что в примере, который у меня есть, отдельное приложение отвечает за сервер и отдельное за клиент, а мне нужно всё в одной программе. причём клиент подсоединяется только к указаному адресу)

[betirsolt]

на сервер кидаешь ServerSocket и на клиент clientSocket соответственно,у ServerSocket в свойстве port выставь порт любой(но выше чем 1024),у clientSocket тоже в свойстве порт поставь тот же порт что ты поставил в ServerSocket,и в свойстве host у clientSocket напиши IP адресс компа на котором будет сервер

[Sensizu]

betirsolt, спасибо конечно) я это более-менее понимаю, но такое дело:
вот будет у меня программа (отдельная) где будет лежать СерверСокет. И буде вторая, где будет лежать КлиентСокет. А если не ошибаюсь, то при ServerSocketOnRead как раз выводит текст в чат. А из этого следует? Что Мемо (чат) и СерверСокет должны лежать на одной форме (т.е. в одной программе). А Текст который шлёт клиент (вместе с клиентом) в другой.

А как сделать что бы на форме было:
ClientSocket
ChatMemo

И к примеру всё. А на второй только сервер, который и будет слать текст в ChatMemo??? Вот в чём проблема.

[Пепел Феникса]

http://pblog.ru/?p=91
http://pblog.ru/?p=100

[Sensizu]

Спасибо, будет что почитать на досуге...)
Кнопочку создания сервера на компе я уберу (ибо не каждый пользователь мог создать себе сервер), но это уже мои причуды))

Благодарю.

[aleks8091]

Подскажите как со стороны сервера сделать Авторизацию ?? Там вроде через базы данных чтоли? какие компоненты использовать??