Seuraavana vielä täydelliset listaukset valmiin malliohjelman eri tiedostoista (hakemistossa autol). Itse kirjoitetut tai muutetut osat varjostettu.
program Autol; uses Forms, Autolask in 'AUTOLASK.PAS' {Autolaskuri}; {$R *.RES} begin Application.CreateForm(TAutolaskuri, Autolaskuri); Application.Run; end.
unit Autolask; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TAutolaskuri = class(TForm) ButtonHA: TButton; ButtonKA: TButton; LabelHA: TLabel; LabelKA: TLabel; ButtonNollaa: TButton; procedure ButtonHAClick(Sender: TObject); procedure ButtonNollaaClick(Sender: TObject); procedure ButtonKAClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Autolaskuri: TAutolaskuri; implementation {$R *.DFM} procedure TAutolaskuri.ButtonHAClick(Sender: TObject); begin LabelHA.Caption := IntToStr(StrToInt(LabelHA.Caption)+1); end; procedure TAutolaskuri.ButtonKAClick(Sender: TObject); begin LabelKA.Caption := IntToStr(StrToInt(LabelKA.Caption)+1); end; procedure TAutolaskuri.ButtonNollaaClick(Sender: TObject); begin LabelHA.Caption := '0'; LabelKA.Caption := '0'; end; end.Seuraavassa lomakkeen listauksessa tummennetut osat ovat niitä, joita on muutettu Object Inspectorissa. Luonnollisesti kunkin komponentin paikkaa ja kokoa on muutettu oletuksesta, mutta tämä on tehty siirtämällä komponenttia hiirellä.
object Autolaskuri: TAutolaskuri Left = 190 Top = 90 Width = 435 Height = 300 Caption = 'Autolaskuri' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 TextHeight = 16 object LabelHA: TLabel Left = 40 Top = 104 Width = 145 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clAqua Font.Color = clBlack Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object LabelKA: TLabel Left = 208 Top = 104 Width = 145 Height = 29 Alignment = taRightJustify AutoSize = False Caption = '0' Color = clAqua Font.Color = clBlack Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False end object ButtonHA: TButton Left = 40 Top = 32 Width = 145 Height = 49 Caption = '&Henkilöautoja' TabOrder = 0 OnClick = ButtonHAClick end object ButtonKA: TButton Left = 208 Top = 32 Width = 145 Height = 49 Caption = '&Kuorma-autoja' TabOrder = 1 OnClick = ButtonKAClick end object ButtonNollaa: TButton Left = 96 Top = 168 Width = 193 Height = 57 Caption = '&Nollaa' TabOrder = 2 OnClick = ButtonNollaaClick end end