Indy CopyTIdBytes

[hesch21]

Ich brauch wieder mal Hilfe !!
ich habe in meinem Programm folgendende ziemlich einfache Funktion:

Delphi-Quellcode:

procedure TAServer1.TGAlarmTimer(Sender: TObject);
var hiBau     : string;
var HiS       : string;
var FT        : boolean;
var HPfad     : string;
var BauTab    : array [1..50] of string;
var x         : integer;
var y         : integer;
var GAMeld    : string;
var HiHeight  : integer;
var An        : string;
var MemStream : TMemoryStream;
var MyBuffer  : TIdBytes;
var doo       : string;
begin
.
.
.
  doo := '';
  if FileExists(GaHiB) then
     doo := GaHiB
  else
     if FileExists(DBPfad + 'GALARM.BMP') then
        doo := DBPfad + 'GALARM.BMP';
  if doo <> '' then
     begin
     MemStream.LoadFromFile(doo);
     ReadTIdBytesFromStream(MemStream, MyBuffer, MemStream.Size);
     x := round(int(length(MyBuffer) / 60000));
     for y := 0 to x do
        begin
        EffMeld   := ToBytes('#B' + IntToStr(y + 1) +  '#');
        CopyTidBytes(MyBuffer, y * 60000, EffMeld, 4, 60000);
        GAlarmServer.Send(EffMeld);
        end;
     end;

Sinn der Geschichte ist es, über eine Indy-Broadcast-Server (GAlarmServer) ein Bild zu verschicken. Da aber nur Pakete von max. ca. 64 KB möglich sind, versuche ich, die Bilddatei in Pakete von 60000 Bytes zu splitten und so zu versenden.
Jetzt bekomme ich aber immer eine Fehlermeldung auf dem CopyTiDBytes. ERangeError, Fehler bei der Bereichsprüfung. Und zwar bereits beim ersten Durchlauf durch die for-Schlaufe wo die Startposition im MyBuffer noch 0 (y = 0 * 60000 = 0) ist. x ist übrigens beim Test 10, also MyBuffer über 600'000.

Und noch rasch weshalb ein Versand über einen Broadcast: Das Bild muss möglichst schnell an unter Umständen über 1'000 Clients gesandt werden. Aber wenn da jemand eine bessere Idee hat ...