[lmikle]

А можно поинтересоваться, что это за код и какое отношение он имеет к приведенной задаче?

По задача, для поиска надо делать так:

Код:

type
  TScheduleItem = record
    BusNo : String[10];
    BusType : String[100];
    Destination : String[100];
    DepartureTime : TDateTime;
    ArrivalTime : TDateTime;
  end;

var
  F : File Of TScheduleItem;
  Item : TScheduleItem;
  TimeNeedToBe : TDateTime;
  PlaceNeedToBe : String;
  Msg : String;
begin
  // Когда и куда должны прибыть
  TimeNeedToBe := DateTimePicker1.Time;
  PlaceNeedToBe := Edit1.Text;

  AssignFile(F,'schedule.dat');
  Reset(F);

  While Not Eof(F) Do
    Begin
      Read(F,Item);
      If (AnsiCompareText(PlaceNeedToBe,Item.Destination) = 0) And
         (TimeOf(TimeNeedToBe) < TimeOf(Item.ArrivalTime) Then
        Begin
          // Нашли подходящий рейс.
         Msg := Format('Подходящий автобус:'#13#10'Номер:%s'#13#10'Отправление:%s'#13#10'Прибытие:%s',[Item.BusNo,TimeToStr(Item.DepartureTime),TimeToStr(Item.ArrivalTime)]);
         ShowMessage(Msg);
        End;
    End;

  CloseFile(F);