ActiveX/ASP-object og UDP

procedure TForm1.Delay(msecs:integer);
var
  FirstTickCount:longint;
begin
    FirstTickCount:=GetTickCount;
    repeat
          Application.ProcessMessages;
    until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;

Delay(2000);

Med den functioner stopper den ikke hele dit program

type
  TDataReceived = procedure (Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer) of object;
  private
    DataReceived: TDataReceived;


procedure DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
begin
  NMUDP1.ReadBuffer(cBuf, NumberBytes);
  bufferLength:=NumberBytes;
end;


function asdasdasdads(input:String);
var
  cBufLength, e: Integer;
  command: String;
begin
  NMUDP1 := TNMUDP.Create(NIL);
  NMUDP1.RemoteHost := fhost;
  NMUDP1.ReportLevel := Status_Basic;
  NMUDP1.LocalPort := fport;
  NMUDP1.RemotePort := fport;
  NMUDP1.SendBuffer(cBuf, cBufLength);
  NMUDP1.OnDataReceived := DataReceived;

// *1

  result:='data recieved: '+copy(cBuf,1,bufferLength)
  NMUDP1.free;
end;


*1 hvordan får jeg den til at vente her, til OnDataReceived-eventen er udført?

dkn>>[Error] udp.pas(44): Undeclared identifier: 'GetTickCount'

??

Lukker