procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
  tHeadlines.FindNearest(['08', StrToDate(Edit1.Text)]);
  while not(tHeadlines.Eof) do
     begin
     If (tHeadlinesSHDEPT.Value <> '08') or
        (tHeadlinesSHDATE.Value <> StrToDate(Edit1.Text)) then
        Break;
     Memo1.Lines.Add(tHeadlinesSHDESC.Value);
     Memo1.Lines.Add('--------------------------------------------------');

     tHeadlines.Next;
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showform2;
end;