Setsames Verhalten von TFileStream

[saschab]

Hallo zusammen,
ich habe mit folgendem Code meine Probleme und hoffe ihr könnt mir helfen :

Delphi-Quellcode:

Procedure Tfrm_main.SendtoPrinter(var Stream: TFileStream; var PrintStr: String);
begin
  CharToOEM(@Printstr[1], @Printstr[1]);
  Stream.write(PrintStr[1], length(Printstr)+1);
end;


procedure Tfrm_main.btn_print_labelClick(Sender: TObject);
var
   Stream: TFileStream;
   temp : String;
begin
  Stream := TFileStream.Create('LPT1', fmOpenWrite);
  temp := memo_test.Text;
  sendtoprinter(Stream, temp);
end;

Dieser Code soll die Steuersequenzen aus dem memo_test Memofeld an den Drucker senden.
Mein Problem ist nun Drücke ich den Knopf passiert nichts. Sobald ich aber meine Anwendung schliesse, Druckt er das Label aus das mit den Steuersequenzen generiert wurde (Barecode).
Weis vielleicht jemand wie ich es erreichen kann das er die Daten sofort sendet (das Label Druckt).


Ich bin total am Verzweifeln HILFE