TClientSocket. Приложение без формы / Delphi

[unreal2x]

Всем привет. очередная проблема возникла...

в без-форменном приложении TClientSocket не хочет компилироваться. Ругается на порт адрес оупен.
Консоль конешно можно, но интересен и этот вариант без формы.

Использую код...

program client;

uses
  Windows,
  SysUtils,
  ScktComp,

var
CS: TClientSocket;

begin
while 1=1  do
  Begin
sleep(10000);
CS:=TClientSocket.Create(nil);
CS.Port:=666;
CS.Address:=IP;
CS.Open;
end;

end.

Помогите плиз - кто знает.