Binär Datei über RS232 versenden Delphi

[itblumi]

Ich lasse sie ja weg und komme irgendwie trotzdem nicht auf den Wert.

Hier mal noch mein Funktionsaufruf mit dem ich teste.

Delphi-Quellcode:

procedure TFWork.TestCRCClick(Sender: TObject);
var
   AFile, AStr: String;
  SendByte: Byte;
  Data: Array [1..128] of Byte;
   AFileStr: TFileStream;
  i, crc: Integer;
  Erg: Word;
begin
  AFile := Fu.GetExeDir + 'test.bin';
   if FileExists(AFile) then begin
     AFileStr := TFileStream.Create(AFile, fmOpenRead);
    try
      AFileStr.Position := 0;
      for i:=1 to 128 do begin
        AFileStr.Read(SendByte,1);
        Data[i] := SendByte;
      end;
      crc := Fu.CalculateXYZModemCRC16(Data, High(Data));
      EdBefSer.Text := IntToHex(crc, 4);
    finally
      AFileStr.Free;
    end;
  end;
end;