[lmikle]

Сообщение от Неподарок

Именно этот процесс мне не реализовать Может сонный я перед работой то что)

Ну что-то типа того:

Код:

procedure TForm1.ButtonFindClick(Sender : TObject);
begin
  If Not cbContinueFind.Checked Then DataSet.First;
  While Not DataSet.Eof Do
    Begin
      If (твое условие на DataSet.FieldByName()) Then Exit;
      DataSet.Next;
    End;
  ShowMessage('Not found!');
end;