Cara Membuat cetak struk di delphi

Ada request atau pertanyaan dari email, yang menanyakan masalah cetak struk menggunakan visual basic, dan ia menanyakan gimana kalau mencetak nya menggunakan delphi???
langsung aja buat project baru dan silahkan design seperti dibawah ini...

Design menggunakan komponen:

• 3 buah TEdit
• 1 ComboBox
• 1 TMemo
• 2 Button

Pada event tombol cetak memo ketikkan script nya untuk menampilkan hasil di memo.

1. var jarak,jarak1,jarak2,jarak3 : String;  
2.   
3. jarak:='     ';  
4. jarak1:='            ';  
5. jarak2:='              ';  
6. jarak3:='                ';  
7. memo1.Clear;  
8. memo1.Lines.Add('                            Contoh Cetak Menggunakan Memo');  
9. memo1.Lines.Add('==========================================================');  
10. memo1.Lines.Add(' Nama : ' +jarak2+ tNama.Text);  
11. memo1.Lines.Add(' Usia : ' +jarak3+ tUsia.Text);  
12. memo1.Lines.Add(' Alamat : ' +jarak1+ tAlamat.Text);  
13. memo1.Lines.Add(' Jns Kelamin : ' +jarak+ CmbJkel.Text);  
14. memo1.Lines.Add('==========================================================');  
15. memo1.Lines.Add('==========================================================');  
16. memo1.Lines.Add('                               Source : www.indrawan21.com');  

Dan Untuk script di tombol print ketikkan sbb :

1. var f:textfile;  
2.     i:integer;  
3.     S:string;  
4. begin  
5.          button1.Click;  
6.          S:= 'LPT1' ; 
7.          assignfile(f,S);  
8.          rewrite(f);  
9.   
10.          write(f,#27+'C'+#66+#27+#15);  
11.   
12.          for i:=0 to memo1.Lines.Count-1 do  
13.          writeln(f,memo1.lines.strings[i]);  
14.          writeln(F,'');  
15.          write(f,#27+#18+#12+#13);  
16.          closefile(f);  
17.          button2.Enabled:=false;  

*Ingat, untuk deklarasi variable kalian letakkan sebelum begin...
Hasil nya sbb:

Untuk source code nya silahkan di coba sendiri download di sini Cetak struk delphi