IF ELSE-запутался

[zigzac-zigzac]

Здравствуйте!
При нажатии кнопки Buttun если в Edit ввели 4 то действие 1, если неравно 4 то действие 2.
А если в Edit ничего не ввели? Как закодировать?
Чтобы если ничего не ввели то переход на следующую форму.

procedure TForm3.Button1Click(Sender: TObject);
 var
A:Integer;
begin
A:=StrToInt(Edit1.Text);
begin
if A=4 then
begin
ADOTable1.Open;
ADOTable1.Insert;
 ADOTable1.FieldByName('o3').AsString:='2';
ADOTable1.Post;
form3.Hide;
form4.Show;
end
 else
 begin
form3.Hide;
form4.Show
 end;
begin

 if edit1.Text='' then
 begin
 form3.Hide;
 form4.Show
 end;
end;
end;
end;
end.

From Stilet: Впредь код оформляй по правилам.

Выдаёт ошибку что нет типа данных Integer///////////

[type_Oleg]

Пишите с тегами code и с отступами, вот так

if A=4 then
  begin
   ADOTable1.Open;
// и т.д.

может быть и распутается ..
И зачем второй begin здесь

begin
 A:=StrToInt(Edit1.Text);
 begin

?
А до этого никогда не дойдет

 if edit1.Text='' then

Если в edit1.Text будет что-то, кроме числа или пусто, то просто аварийный выход.
Используйте StrToIntDef
или edit1.Text='' проверяйте в самом начале.