[lmikle]

Ну, например, так:

Код:

procedure TForm1.btSaveClick(Sender : TObject);
const
  cFileName = 'c:\search_result.txt'; // Что бы не замусоривать код диалогом.
var
  AList : TStringList;
  I : Integer;
begin
  ADOQuery2.First;
  If ADOQuery2.EOF Then
    Raise Exception.Create('Результат поиска пустой.');
  AList := TStringList.Create;
  Try
    While Not ADOQuery2.EOF Do
      Begin
        For I := 0 To ADOQuery2.Fields.Count-1 Do
          AList.Add(ADOQuery2.Fields[i].FieldName + ' : ' + ADOQuery2.Fields[i].AsString);
        AList.Add('');
        ADOQuery2.Next;
      End;
    AList.SaveToFile(cFileName);
  Finally
    AList.Free;
  End;
end;