[UDP]Виснет при получении пакета

[Crossfire]

Проблема возникает при получении пакета, форма полностью виснет при его приеме.

var
s:string;
begin
   IdUDPClient1.Active := True;
    IdUDPClient1.Host := '176.9.142.44';
    IdUDPClient1.Port:=7777;
    IdUDPClient1.Connect;
    if IdUDPClient1.Connected  then
           begin
        IdUDPClient1.Send('SAMP');
        sLabel1.Caption := 'ok';
        IdUDPClient1.Send('i');
       s:= IdUDPClient1.ReceiveString;
       sMemo1.Lines.add(s);
                end;
    IdUDPClient1.Active := False;

Что это значит? Что я делаю не так?

[raxp]

...правильно виснет, ибо вы тут же и принять пытаетесь. Ознакомьтесь с имеющимися событиями компонента, ну, или справку для разнообразия откройте. Или просто читайте в отдельном потоке/таймере.