procedure TForm1.Button2Click(Sender: TObject);
var
 MyFile: TextFile;
begin
 AssignPrn(MyFile);
 Rewrite(MyFile);
 Write(MyFile, 'Print this text1');
 Write(#27+'M');
 System.CloseFile(MyFile);
End;

begin
 AssignPrn(MyFile);
 Rewrite(MyFile);
 Write(MyFile, 'Print this text1');
//  Write(#27+'M');
 System.CloseFile(MyFile);
End;

procedure TDirectPrint.PrintStr(const Str: string);
var
 s,PrinterName:string;
 hPrinter:THandle;
 DocInfo:TDocInfo1;
 Len,Writed:DWORD;
begin
 s:=Str;
 Len:=Length(s);
 if Len=0 then exit;
 if s[Len]<>#12 then
 begin
   s:=s+#12;
   inc(Len);
 end;
 PrinterName:=GetDefaultPrinterName;
 if not OpenPrinter(PChar(PrinterName),hPrinter, nil) then RaiseLastOSError;
 try
   DocInfo.pDocName:='DirectPrint';
   DocInfo.pOutputFile:=nil;
   //DocInfo.pDatatype:='RAW';
   DocInfo.pDatatype:='TEXT';

   if StartDocPrinter(hPrinter,1,@DocInfo)=0 then RaiseLastOSError;
   //if not StartPagePrinter(hPrinter) then RaiseLastOSError;
   if not WritePrinter(hPrinter,PChar(s),Len,writed) then RaiseLastOSError;
   if writed<>Len then RaiseLastOSError;
   //if not EndPagePrinter(hPrinter) then RaiseLastOSError;
   if not EndDocPrinter(hPrinter) then RaiseLastOSError;
 finally
   ClosePrinter(hPrinter);
 end;
end;