[Delphi 4] UDP-stream - problem w XP profesional

Mam powazny problem z przeniesieniem aplikacji z 98 na XP profesional
oto kod procedury która generuje błą [Delphi 4]

procedure TForm1.UDP_1DataReceived(Sender: TComponent;  // NOWE DANE NA UDP
  NumberBytes: Integer; FromIP: String);
var
  MyStream    : TMemoryStream;
  TmpStr,Linia: String;
begin
  MyStream := TMemoryStream.Create;
  try
    // odebranie danych
    UDP_1.ReadStream(MyStream); // Odczyt strumienia danych
    SetLength(TmpStr,NumberBytes);  // Ustawienie długości stringa na długość=ilości danych
    MyStream.Read(TmpStr[1],NumberBytes); // Zapis do stringa
    UDP_1.SendStream(Mystream);
  finally
    MyStream.Free;
    If Label2.Caption='|' then Label2.Caption:='--'
                          else Label2.Caption:='|';
end;

Pod 98 chodzi bez zarzutu pod XP home bez zarzutu jednak pod XP profesional zawsze gdy przychodzi coś na UDP dostaję komunikat StreamWrite Error.

Nic a nic nie kapuję - w czym problem. :[

Może ktoś spotkał się z takimi kłopotami i je jakoś rozwiązał - proszę takie osoby o pomoc.