Binär Datei über RS232 versenden Delphi

[itblumi]

Ich versuch seit einiger Zeit eine Binär Datei über eine RS232 Schnittstelle zu versenden, aber aus irgendeinem Grund bricht er nach dem ersten Byte ab.
Mein Code Bis jetzt:

Delphi-Quellcode:

       
   AFileStream := TFileStream.Create(DatName, fmOpenRead);
        try
          DataSize := AFileStream.Size;
          AFileStream.Position := 0;
          CanSend := 1;
          GetMem(DataPtr, CanSend);
          while DataSize > 0 do begin
            AFileStream.Read(DataPtr, CanSend);
            Move(DataPtr, SendByte, CanSend);
            ComSerial.SendByte(SendByte);
            DataSize := DataSize - CanSend;
            SendDataSize := SendDataSize + CanSend;
          end;
          FreeMem(DataPtr);
        finally
          AFileStream.Free;
        end;

Hat irgendjemand eine Idee?