Небольшая проблема с сокетами

[RoamingFire]

Короче такая проблема. Мне нужно в одной процедуре соединиться с сервером и сразу же отправить сообщение на сервер (т.е. в той же процедуре, где происходит соединение с сервером). Но соединение происходит только, когда эта функция завершается... Мне посоветовали использовать функцию "Application.ProcessMessages;" - но все равно не помогает... Вот проблемный кусок кода:

    SystemSocket.Host := Ip;
    SystemSocket.Active := True;
    Application.ProcessMessages;
    if SystemSocket.Active then
    begin
      Msg := 'Reg '+Name+'|'+Pswd;
      SystemSocket.Socket.SendText(Msg);      
    end

Помогите пожалуйста! Буду очень благодарен!

[alexBlack]

Active становится = true практически сразу после присвоения. После этого происходит масса разной работы (что нас не интересует) и в случае неудачи соединения с сервером возникает асинхронная ошибка (вызывается метод onError). То есть эдать сообщения об ошибке бессмысленно - ее может и не быть, а на Active полагаться нельзя.
Я тоже с этим сталкивался. Решил проблему следующим образом:

На сервере сразу при подключении клиента (onClientConnect) сервер отправляет клиенту подтверждение - любое сообщение Socket.Send(...

Клиент устанавливает Active := true и ожидает подтверждения от сервера или OnError:

примерно:

isConnected := false;
isError := false;

procedure  onError
begin
   isError := true
end;

procedure onRead 
begin
   isConnected := true;
end;

Active := true;
while true do begin
   Application.ProcessMessage;
   if isConnected or isErorr then break;
end;

if isConnected then Send ...

[RoamingFire]

Спасибо большое!

[Квэнди]

Один вопрос- одна тема.