function time(a, c: double): double;
var
h1: double;
begin
h1 := (INT(а) + INT(с)) * 60 + (frac(a) + frac(с)) * 100;
result := int(h1 / 60) + (h1 - int(h1 / 60) * 60) / 100;
end;

function time2(w, c: double): double;
var
h1: double;
begin
h1 := (INT(w) + INT(с)) * 60 + (frac(w) + frac(с)) * 100;
result := int(h1 / 60) + (h1 - int(h1 / 60) * 60) / 100;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,w,z,x:double;
begin

a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
w:=time(a,c);
z:=time2(0,c);

while w <= b do
w:=w+z;

ListBox1.Items.Add(FloatToStr(w)+' '+FloatToStr(z));

end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
     a, b, c, Stop: TDateTime;
     TempStr: String;
begin
     Form1.ListBox1.Clear;
     a:= StrToTime(Form1.Edit1.Text);
     b:= StrToTime(Form1.Edit2.Text);
     c:= StrToTime(Form1.Edit3.Text);
     While ((b - a) >= c) Do  // Пока до конца "смены" осталось больше времени, чем требуется на преодоление маршрута
      Begin
           Stop:= a + c;        
           TempStr:= TimeToStr(a) + ' - ' + TimeToStr(Stop);
           Form1.ListBox1.Items.Add(TempStr);
           a:= Stop;
      End;
end;