Компонент Delphi CheckBox

[Prosha25]

По курсовой работе задали сделать приложение "учёт расхода топлива",у меня вся программа почти написана,но препод сказал сделать компонент CheckBox с помощью которого будет производиться расчет не в один конец,а туда и обратно. Никак не могу сделать именно это действие,подошел к преподу,показал код и он тоже развел руками. Может здесь помогут хотя бы)
весь свой код прикладываю сюда же,так же скриншот всей программы.
Заранее всем огромное спасибо.


unit MainU;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Label1: TLabel;
edWay: TEdit;
Label2: TLabel;
edFuel: TEdit;
Label3: TLabel;
edCost: TEdit;
btnRun: TButton;
BitBtn1: TBitBtn;
lblMessage: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Label5: TLabel;
Label6: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure btnRunClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function Price(Way,Fuel,Cost:extended):exten ded;
begin
Result:=(Way/100)*Fuel*Cost;
end;

procedure TForm1.btnRunClick(Sender: TObject);
var
eWay,eFuel,eCost:extended;
begin
try
eWay:=strtofloat(edWay.Text);
except
showmessage('"Путь в км" должен быть числом!');
exit;
end;
if eWay<=0 then
begin
showmessage('"Путь в км" должен быть больше 0!');
exit;
end;
try
eFuel:=strtofloat(edFuel.Text);
except
showmessage('"Расход топлива на 100 км в литрах" должен быть числом!');
exit;
end;
if eFuel<=0 then
begin
showmessage('"Расход топлива на 100 км в литрах" должен быть больше 0!');
exit;
end;
try
eCost:=strtofloat(edCost.Text);
except
showmessage('"Стоимость литра топлива" должна быть числом!');
exit;
end;
if eCost<=0 then
begin
showmessage('"Стоимость литра топлива" должна быть больше 0!');
exit;
end;
lblMessage.Caption:='Стоимость бензина, необходимого для переезда: '+floattostr(Price(eWay,eFuel,eCost ));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
// расход топлива некоторых автомобилей по городу
MessageBox(Application.Handle,'Ваз2 107=9,8 л.'+#13#10+'Renault Logan=9,5 л.'+#13#10+'Hyndai Solaris=7,6 л.'+#13#10+'Kia Rio=7,6 л.'+#13#10+'Mitsibishi Lancer=7,7 л.'+#13#10+'Volkswagen Passat=7,6 л.','Справка',MB_DEFBUTTON2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// расход топлива некоторых автомобилей по трассе
MessageBox(Application.Handle,'Ваз2 107=7,3 л.'+#13#10+'Renault Logan=5,8 л.'+#13#10+'Hyndai Solaris=5 л.'+#13#10+'Kia Rio=4,9 л.'+#13#10+'Mitsibishi Lancer=5,7 л.'+#13#10+'Volkswagen Passat=6,7 л.','Справка',MB_DEFBUTTON2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MessageBox(Application.Handle,'АИ-92=40 рублей за литр'+#13#10+'АИ-95=43 рубля за литр'+#13#10+'АИ-98=48 рублей за литр','Справка',MB_DEFBUTTON2);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
MessageBox(Application.Handle,'42 рубля за литр','Справка',MB_DEFBUTTON2);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
MessageBox(Application.Handle,'18 рублей за литр','Справка',MB_DEFBUTTON2);
end;

end.

[min@y™]

Туда и обратно = Туда * 2