В справочной автовокзала хранится расписание движения автобусов [Delphi]

[pis_an]

Memo1.Lines.Add(IntToStr(Nmar)+' '+Tipavt+' '+Punkt+' '
+timeToStr(VrOtpr)+' '+timeToStr(VrPr));
end;
Write(fz,Avto[nzap]); // Запись в файл
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
end;
procedure TForm1.Button2Click(Sender: TObject); // Создание нового файла записей
begin
OpenDialog1.Title :='Создать новый файл'; // Изменение заголовка окна диалога
if OpenDialog1.Execute then // Выполнение стандартного диалога выбора имени файла
begin
FileNameZ:= OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz,FileNameZ); // Связывание файловой переменной Fz c именем файла
Rewrite(Fz); // Создание нового файла
end;
Button1.Show;

end;


procedure TForm1.Button3Click(Sender: TObject); // Открыть существующий файл
begin

if OpenDialog1.Execute then // Выполнение стандартного диалога выбора имени файла
begin
FileNameZ:=OpenDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Fz, FileNameZ); // Связывание файловой переменной Fz c именем файла
Reset(Fz); // Открытие существующего файла
end;
while not eof(fz) do begin
nzap:=nzap+1;
Read(fz,Avto[nzap]); // Чтение записи из файла
with Avto[nzap] do
Memo1.Lines.Add(IntToStr(Nmar)+' '+Tipavt+' '+Punkt+' '
+TimeToStr(VrOtpr)+' '+TimeToStr(VrPr));
end;
Button1.Show; // Сделать видимой кнопку "Ввести запись"
end;


procedure TForm1.Button5Click(Sender: TObject);// Сохранение результатов в текстовом файле
var i:word;
begin
if SaveDialog1.Execute then // Выполнение стандартного диалога выбора имени файла
begin
FileNameT:=SaveDialog1.FileName; // Возвращение имени дискового файла
AssignFile(Ft, FileNameT); // Связывание файловой переменной Ft c именем файла
Rewrite(Ft); // Открытие нового текстового файла
end;
for i:=1 to nzap do
with Avto[i] do Writeln(ft,
IntToStr(Nmar)+' '
+Tipavt+' '
+Punkt+' '
+TimeToStr(VrOtpr)+' '
+TimeToStr(VrPr));
CloseFile(Ft); // Закрытие текстового файла
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
CloseFile(fz); // Закрытие файла записей при нажатии на кнопку "Сlose"
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(fz); // Закрытие файла записей при нажатии на кнопку (закрыть крестик)
end;

end.


ПОЖАЛУЙСТА, ПОМОГИТЕ НАПИСАТЬ КОД ДЛЯ Button4 - Я НЕ ПОНИМАЮ, КАК Вывести информацию о рейсах, которыми можно воспользоваться для прибытия в пункт назначения раньше заданного времени(((