10 CLS
20 GOTO C:\PROGRAM FILES\BORLAND\DELPHI7\QUICKRPT
30 OPEN QRPREV.PAS
40 TOOLBAR'A İKİ TANE SPEED BUTTON EKLE
50 BİRİNCİ BUTTONA ZOOM IN RESMİ İKİNCİSİNE ZOOM OUT RESMİ (GLYPH'DEN) EKLE
60 BİRİNCİ BUTTONUN ONCLICK OLAYINA QRPreview.Zoom := QRPreview.Zoom+50;
70 İKİNCİ BUTTONUN ONCLICK OLAYINA QRPreview.Zoom := QRPreview.Zoom-50;
80 PROJEYİ DERLE VE DENE
81 IF ÇALIŞTI THEN EXIT ELSE GOTO 90
90 QUICKRPT COMPONENTINI TEKRAR DERLE
91 GOTO 80