String in einem Stream schreiben

[reef]

Hallo zusammen,

bin neu hier und habe ein paar Fragen zu "String in einem TFileStream schreiben". Die Datei wird zwar geschrieben, nur steht in dieser Datei nicht das, was ich möchte, sondern merkwürdige Zeichen. Ich nutze Delphi XE 2. Hängt das mit dem Unicode zusammen? Was mache ich da falsch?

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
begin
  //comport1.CustomBaudRate := 57600;
  comport1.Open;
  Fstream := TFilestream.Create(ExtractFileDir(ParamStr(0)) + '\test.dat', fmcreate);
  timer1.Enabled := True;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  timer1.Enabled := False;
  comport1.close;
  if assigned(FStream) then
  begin
    FStream.Free;
  end;
end;

procedure TForm4.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort1.Readstr(Str, Count);
  Fstream.WriteBuffer(Str, Count);
end;

procedure TForm4.Timer1Timer(Sender: TObject);
var
  Str: String;
begin
  Str := '1234';
  ComPort1.WriteStr(Str);
end;

Schönen Dank für Eure Hilfe.

Gruß
Ralf