TitleLabel2: TLabel; ReturnButton: TButton; LitreLabel: TLabel; TLabel: TLabel; LitreEdit: TEdit; TotalLabel: TLabel; EndLabel: TLabel; TripEdit: TEdit; DisplayButton: TButton; procedure TotalLabelClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var ConsumForm: TConsumForm;implementation{$R *.DFM}procedure TConsumForm.TotalLabelClick(Sender: TObject);var tripo,litre,consum:integer;begin tripo:=StrToInt(Tripedit.text); litre:=StrToInt(litreedit.text); totallabel.caption:=FloatToStr(consum);end;end.Costunit Cost;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TCostForm = class(TForm) TitleLabel: TLabel; TitleLabel2: TLabel; ReturnButton: TButton; LitreLabel: TLabel; TLabel: TLabel; LitreEdit: TEdit; TotalLabel: TLabel; CostLabel: TLabel; CostEdit: TEdit; DisplayButton: TButton; procedure TotalLabelClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var CostForm: TCostForm;implementation{$R *.DFM}procedure TCostForm.TotalLabelClick(Sender: TObject);var Avg,Litre,cost:integer;begin Avg:=StrToInt(Costedit.text); Litre:=StrToInt(Litreedit.text); Cost:=Litre*Avg; TotalLabel.Caption:=FloatToStr(Cost);end;end.Helpunit Help;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type THelpform = class(TForm) TitleLabel: TLabel; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; private { Private declarations } public { Public declarations } end;var Helpform: THelpform;implementation{$R *.DFM}end.Screen Dumps Working screen Self Evaluation Of ProjectThis Program would require more work before it is able to run properly.It can and does calculate the required tasks of Distance Travelled, Fuel Consumption and total fu...
