проверка Eedit-ов

[MAX722]

Подскажите пожалуйста, как сделать проверку Eedit-ов
Поля Edit1, Eedit2 и Eedit3 не должны быть пустыми и содержать только числа.
Если условие не выполнено прервать procedure TForm1.Button1Click(Sender: TObject)

[пауэрлифтинг]

чтобы были всегда числа за место едитов можешь использовать SpinEdit
а так вот так можешь:

var err: booaen;
...
err:=false;
try
strtoint(Edit1.text);
strtoint(Edit2.text);
strtoint(Edit3.text);
except
err:=true;
end;
if err then
begin
showmessage('не заполнены едиты');
exit;
end;

[MAX722]

У меня не получается применить код, новичок я.
Как его применить сюда:


procedure TvvodDannihkhForm.Button1Click(Send er: TObject);
var
n: integer;
begin

//Добавляем новую строку
StringGrid1.RowCount:=StringGrid1.R owCount+1;
StringGrid1.Rows[StringGrid1.RowCount-1].Clear;

n:=StringGrid1.RowCount-1;
StringGrid1.Cells[0,n]:=Edit1.Text;
StringGrid1.Cells[1,n]:=Edit2.Text;
StringGrid1.Cells[2,n]:=Edit3.Text;

//очистка edit-ов
Edit1.Clear;
Eedit2.Clear;
Eedit3.Clear;
end;

[пауэрлифтинг]

procedure TvvodDannihkhForm.Button1Click(Send er: TObject);
var 
n: integer;
 err: booaen;
begin

err:=false;
try
strtoint(Edit1.text);
strtoint(Edit2.text);
strtoint(Edit3.text);
except
err:=true;
end;
if err then
showmessage('не правильно заполнены едиты') else
begin

//Добавляем новую строку
StringGrid1.RowCount:=StringGrid1.R owCount+1;
StringGrid1.Rows[StringGrid1.RowCount-1].Clear;

n:=StringGrid1.RowCount-1;
StringGrid1.Cells[0,n]:=Edit1.Text;
StringGrid1.Cells[1,n]:=Edit2.Text;
StringGrid1.Cells[2,n]:=Edit3.Text;

//очистка edit-ов
Edit1.Clear;
Eedit2.Clear;
Eedit3.Clear;
end;
end;

[MAX722]

Я тоже так сразу и сделал, но при компиляции Error

[Error] Unit2.pas(44): Undeclared identifier: 'boolaen'

var
n: integer;
err: booaen; // Строка 44
begin
.
.
.

[Пепел Феникса]

boolean потому что

[MAX722]

пауэрлифтинг спасибо огромное

Все понял, виместо
err: booaen;
надо
err: Boolean;