[Damik]

Помогите исправить ошибку Undeclared identifier OkBottomDlg

Код:

procedure TForm1.Button1Click(Sender: TObject);
Label NN;
var k:integer;
begin
 If OpenDialog1.Execute Then
 A:=OpenDialog1.FileName
 Else
begin Soob;
 Exit;
end;
 NN:
if (OKBottomDlg.ShowModal=mrOk)
 then
 begin M:=StrToInt(OkBottomDlg.MaskEdit1.Text);
 N:=StrToInt(OkBottomDlg.MaskEdit2.Text);
 if (M=0) or (N=0) then
 begin
 ShowMessage('Вы ввели нулевое значение! Повторите ввод!');
 Exit;
 End;
 end
 else begin
 if Application.MessageBox('Вы не ввели значения. Повторить ввод?','Надо ввести значения или Отмена',MB_OKCANCEL)=1
 then Goto NN
 else Exit;
 end;
 Vvod(B);
 if K>0 then  begin
 ShowMessage('Ошибочно количество строк исходного массива'+'Проверьте файл с исходными данными');
 Halt; end;
 Label1.Caption:='Введены исходные данные';
 Button1.Enabled:=False;
 Button2.Enabled:=True;
 Button2.SetFocus;
 if SaveDialog1.Execute then
 begin A:=SaveDialog1.FileName;
 AssignFile(FI,A); Rewrite (FI);
 end
 else begin Soob; Exit; end;
 Writeln(FI, 'Исходные данные');
 P(B,M,N);
end;