[Zylex]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var  w,b,x,y: String;
begin
    x := formatdatetime('hh:mm', strtotime(edit3.text));
    b := formatdatetime('hh:mm', strtotime(edit2.text));
    w := formatdatetime('hh:00', strtotime(Edit1.Text));
    y := Formatdatetime('hh:mm', strtotime(w) + strtotime(x));

    listbox1.Items.Add(w + ' - ' + y);
    while w < b do
    begin
        w := formatdatetime('hh:mm',strtotime(w) + strtotime(x));
        y := Formatdatetime('hh:mm', strtotime(w) + strtotime(x));
        ListBox1.Items.Add(w + ' - ' + y);
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    edit3.Text := '00:30';
    edit3.Visible := false;
end;

Если я тебя правильно понял, то вот код, здесь я написал все что ты хотел, а если что еще надо сам
думаю допишешь.