procedure Tyazicilarf.BitBtn1Click(Sender: TObject);
var
PrintTextF: System.TextFile;
yaziciadi:String;
x:Integer;
begin
try
// Raporunuzu text e yazdirmak isterseniz
// yaziciadi:='c:\dokum.txt' olarak yazidirabilirsiniz.
yaziciadi:='\\YAVUZ\OKI'
AssignFile(PrintTextF, yaziciadi);
Rewrite(PrintTextF);
// Writeln(PrintTextF, #15); // kücük punto
Writeln(PrintTextF, #18);// normal punto
Writeln(PrintTextF, '');
WriteLn(PrintTextF);
Writeln(PrintTextF, #27+#69);// koyu yazdirir
for x := 1 to 70 do Write(PrintTextF, '=');
WriteLn(PrintTextF);
Writeln(PrintTextF, 'Test Yazisi');
for x := 1 to 70 do Write(PrintTextF, '=');
Writeln(PrintTextF, #27+#70);// normal moda gec
finally
closefile(printtextf);
end;
end;