Помогите собрать мысли в кучу

[Dozent]

Здраствуйте, помогите плз

сижу и немогу отладить что то
Нужно: по введёной цене вычислить сколько времени будит работать приложение, но над учитывать переход с дневного на ночной и с ночного на дневной тариф...
Мне хотябы один ктобы помог отладить а второй я по алгоритму сделаю

function GetHour(a: integer): Ttime;
var str:string;
begin
   str:=IntToStr(a div 60) + ' : ' + IntToStr(a mod 60)+ ':00';
  Result :=StrToTime(str);
end;

procedure TForm7.Button1Click(Sender: TObject);
var
tr:TDateTime;
g1,g2,z1,z2:integer;
g3:real;
begin
   g2:= StrToInt(Edit1.Text);
   if (frac(time1)<frac(time)) and (frac(time)<frac(time2)) then
       begin// днём
         g1:=trunc(g2/(cena1/60)); //Находим сколько минут по дневному
         tr:=time+GetHour(g1); // время окончания сеанса по дневному
         if (frac(time)<frac(time2))and(frac(time2)<frac(tr)) then
             begin     //есть переход
              z1:=MinuteOfTheDay(frac(time2)-frac(time));//минут до прехода на ночной
              g3:=g2-((cena1/60)*z1);//стоймость минут до перехода
              g1:=trunc((g2-g3)/(cena2/60));    //кол-во мин после перехода
              g1:=g1+z1; // складываев мин до перехода и после
             end;
       end
      else ///ночь
       begin
         g1:=trunc(g2/(cena2/60));// кол мин по ночному
      end;

  //showmessage(inttostr(g1));
end;

time2---время перехода на ночной тариф, допустим 22:00:00
cena1- цена по дневнмоу тарифу
cena2-цена по ночному тарифу

Вроде бы как бы всё правильно считает не верно, если ктоможет подскажите что не так сделано

[Dozent]

эмм отладил, надо было взглянуть на другом фоне на прогу

    g3:=g2-((cena1/60)*z1);//стоймость минут до перехода

g2 убрал, зачем я его туда ваше поставил не знаю! токо почему-то оно показывает на 1 мин больше