[turat86]

Приветфорумчики! компонент Radiobutton ошибку дает как реагировать эту ошибку.
Я записывал код кнопки "Поиск" так:

PHP код:

procedure TFindForm.BitBtn1Click(Sender: TObject);
 var i: integer;
 begin
for i:=1 to Radiobutton.recordcount-1 do
begin
 if RadioButton1.Checked then
begin
 Edit1.SetFocus;
 DataModule1.bookQuery.Active:=false;
DataModule1.bookQuery.Parameters.ParamByName('inv').Value:='%'+Trim(Edit1.Text)+'%';
  DataModule1.bookQuery.Active:=true;
    ResultForm.ShowModal;
   DataModule1.BookTable.Refresh;
   end;
   end;
   if RadioButton2.Checked then
begin
 DataModule1.bookQuery.Active:=false;
DataModule1.bookQuery.Parameters.ParamByName('bbk').Value:='%'+Trim(Edit1.Text)+'%';
  DataModule1.bookQuery.Active:=true;
    ResultForm.ShowModal;
   DataModule1.BookTable.Refresh;
end
  else begin
 ShowMessage('Такой запись не существует');
 datamodule1.bookTable.Active:=true;
 end;
   end;     
        end;

end. 


Но не получается. RadioButton ошибку дает. Как реагировать ошибку компонентов Radiobutton. Скажите пожалуйста! Заранее спасибо!