Почему то не работает TClientSocket (RAD2010)

[Pcrepair]

Добрый день. решил попробовать сокеты.
такой код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ClientSocket1.Host := '127.0.0.1';  (*тут веб-сервер*)
   ClientSocket1.Port := 80;
   ClientSocket1.Open;
   (*специально для проверки дописал вот это*)
   if ClientSocket1.Active = True then
   Label1.Caption:='IT OPEN'; (*лейбл показывает что сокет не запустился, не активный*)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ClientSocket1.close;
end;

Пробовал в режиме трассировки. доходит до Button1Click - и ничего. а вот Button2Click нормально проходит трассировку
пробовал далее ClientSocket1.Socket.SendText('GET /index.php HTTP/1.1'#13#10); по ClientSocket1Connect и далее Memo1.Lines.Add(Socket.ReceiveText) , но конечно ничего не вышло, поскольку метод OPEN не работает?

Вопрос: может что не так в синтксисе? все примеры из Д7

[Delphi_ProGer]

Событие привязано к кнопке? Я так понял, что в первой процедуре вообще ничего не выполняеться. Верно?

[Pcrepair]

верно понял.
взято из букварей, должно работать но где хитрая заковыка

[xoodoo]

где хитрая заковыка

"Хитрая заковыка" - в значении свойства по умолчанию ClientType = ctNonBlocking.

[Pcrepair]

да это все тоже менялось и так и этак
тут что то с РАД2010, под Д7 все работает. где то что то нужно то ли активировать то ли установить
так что это вопрос к тем кто работает в РАД2010

[xoodoo]

и этак

И как конкретно ты изменял "так" на "этак" ?)

[Pcrepair]

Сообщение от xoodoo

И как конкретно ты изменял "так" на "этак" ?)

канкретна менял режим на блокирующий и неблокирующий, выбор там небольшой или или одно из трех

[Stilet]

Пробовал в режиме трассировки. доходит до Button1Click - и ничего.

А ты зря проверяешь коннект там же. Для него есть событие OnConnect. Там и нужно обрабатывать если связь установлена.

[xoodoo]

Для него есть событие OnConnect

При "этак" это событие, равно как и все прочие, никогда не возникнет.
Оно возникнет только при "так", т.е. при ctNonBlocking.
А ctNonBlocking - это как правило то что "взято из букварей".
А то что "взято из букварей", работать не обязано.

[Pcrepair]

все получилось по простому:

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

procedure TForm1.FormCreate(Sender: TObject);
begin
   ClientSocket1.Create(nil);
end;