компонент Tserversocket возвращает ошибку Опции

[Guest*]

Пишу простейший код на кнопку:

Код

 ServerSocket1.Port := 1122;
 ServerSocket1.Active := true;

сразу ошибок не возникает, а вот если закрыть приложение, то ошибка: "Windows socket error: получен недопустимый аргумент (10022), on API 'closesocket'"
Помню что этих двух строк мало.. кто-нить напомнит, что ещё необходимо прописать для корректного запуска серверного сокета?

[hiv]

У меня как-то такая хрень вылазила, так я ручками закрывал - вроде помогало...

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ServerSocket1.Close;
ServerSocket1.Free;
end;