HEX-Werte in Datei schreiben?

[Sharky]

Hai,

ich schreibe gerade ein Programm mit dem ich Plasmabildschirme über die Serielle Ein- bzw. Ausschalten kann (Verwende dafür TurboPower Async Professional).

Um den Plasma einzuschalten muss ich z.B. folgende HEX-Werte senden:

Code:

AA 11 FF 01 01 12

Soweit so gut. Um das ganze felxibel zu halten möchte ich die Steuercodes in einer Datei haben. Darum versuche ich mit diesem Code die Datei zu erzeugen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data : Array of Byte;
  myStream: TMemoryStream;
begin
  SetLength(data, 6);
  data[0] := $AA;
  data[1] := $11;
  data[2] := $FF;
  data[3] := $01;
  data[4] := $01;
  data[5] := $12;
  fAppPath := ExtractFilePath(Application.ExeName);
  try
    myStream := TMemoryStream.Create;
    myStream.Size := 6;
    myStream.WriteBuffer(data,6);
    myStream.Position := 0;
    myStream.SaveToFile(fAppPath + 'on.dat');
  finally
    myStream.Free;
  end;
end;

Wenn ich mir aber in einem HEX-Viewer die Datei ansehe stehen dort immer diese Werte:

Code:

24 A2 CD 00 28 9B

Was mache ich denn da Falsch?