[on_user]

//хотите описываайте , хотите нет function TDataSet.FindFirst: Boolean;

Код:

function TDataSet.FindFirst: Boolean;begin
  Result := FindRecord(True, True);
end;

function TNPSForm.GetFilter: string;
var
 Pole : Shortstring;
 begin
 // выбор поля ...
  case   RadioGroup1.ItemIndex of
  0: Pole := 'Какое хотите1';
  1: Pole := 'Какое хотите2' ;
  2: Pole := 'Какое хотите3' ;
   end;

 if edName.Text = ' ' then
   begin
      ShowMessage ('Ни чего не набрали!');
       exit;
     end
   else
 Result := Pole  + ' = ' + Trim(edName.Text) 
end;

procedure TNPSForm.SearchFirst;
begin
 ReadQuery.Filter := GetFilter;
 if not ReadQuery.FindFirst then
  Application.MessageBox('Данные не найдены', 'Поиск', MB_OK + MB_ICONINFORMATION)
  else
  Next.Visible:= true;

end;

procedure TNPSForm.Button3Click(Sender: TObject);
var
 DSAfterScroll: TDataSetNotifyEvent;
 DSDataChange: TDataChangeEvent;

begin

 DSAfterScroll := ReadQuery.AfterScroll;
 DSDataChange := dsRead.OnDataChange;

 ReadQuery.AfterScroll := nil;
 dsRead.OnDataChange := nil;
 SearchFirst;
 ReadQuery.AfterScroll := DSAfterScroll;
 dsRead.OnDataChange := DSDataChange;
end;

Admin: Пользуемся тегами!