moving message sign

Server:
 
procedure ProcesThread.AlertUdp(SendText, Recipients: string);
var
  Recipient: string;
  Udp: TIdEchoUDP;
begin
  SendText := FieldByName('TEXT').Value;
  while Trim(Recipients) <> '' do 
  begin
    Recipient := Trim(Copy(Recipients, 0, Pos(';', Recipients) - 1));
    if Trim(Recipient) = '' then 
    begin
      Recipient := Trim(Recipients);
      Recipients := '';
    end else
      Recipients :=  Trim(Copy(Recipients, Length(Recipient) + 2, Length(Recipients)));
    Udp := TIdEchoUDP.Create(Nil);
    try
      with Udp do 
      begin
        Host := Copy(Recipient, 0, Pos('@', Recipient) -1);
        Port := StrToInt(Copy(Recipient, Length(Host) + 2, Length(Recipient)));
        Send(SendText);
      end;
    finally
      FreeAndNil(Udp);
    end;
  end;
end;
 
The client side:
 
procedure TfrmMain.UDPObjUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
  Stream: TStringStream;
begin
  if Application.Active then 
  begin
    Stream := TStringStream.Create('');
    try
      Stream.CopyFrom(AData, AData.Size);
      medWarning.Text := Stream.DataString;
    finally
      FreeAndNil(stream);
    end;
  end;
end;

procedure TfrmPreview.FlashTaskbarButton;
var
  FWinfo: FlashWInfo;
begin
  FWinfo.cbSize := 20;
  FWinfo.hwnd := Handle; // Handle of Window to flash
  FWinfo.dwflags := FLASHW_ALL;
  FWinfo.ucount := 3; // number of times to flash
  FWinfo.dwtimeout := 0; // speed in ms, 0 default blink cursor rate
  FlashWindowEx(FWinfo); // make it flash!
end;