Сокеты и Delphi

Помогите написать программу которая -
1.Открывает на компе порт.
2.Ждёт подключения на него.
3.Пишет каждому кто подключился "Preved".
4.и закрывает входящее соеденение.

желательно многопоточная.

и очень прошу - с коментариями!.

сделал бы сам да давно не писал на delphi.

 

var
Form1: TForm1;
Connections : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Active:=true;
Connections:=0;
end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Inc(Connections);
Socket.SendText('Preved');
Edit1.Text:=IntToStr(Connections);
Socket.Disconnect(Connections);
Dec(Connections);
end;

 

спс. вроде разобрался..
а как читать из сокета?

 

На таких сокетах далеко не уедешь...

 

А на каких нужно уходить? Поделись...

 

Ну я имею ввиду winsock, а не всякие ООПшные надстройки.

 

Ды я понел. Просто есть вопрос, нужен ответ. можете предложить лучше. Будем только рады, я бы и сам поучился у Вас.

 

там события есть OnRead,OnWrite.