Подправить код программы в Делфи

[Ракетчик]

Написал данный код, всё работает, но препод сказал, что надо упростить "if Length(Form1.Edit1.Text) = 0 then" - сделать без Length. А я не понимаю, как. Напишите, пожалуйста, исправленный вариант.

 var
   a,b: integer;
   y: real;
begin
   if Length(Form1.Edit1.Text) = 0 then
begin
   ShowMessage('Надо ввести данные');
   exit;
   end;
begin
   if Length(Form1.Edit2.Text) = 0 then
begin
   ShowMessage('Надо ввести данные');
   exit;
   end;
   a := StrToInt(Edit1.Text);
   b := StrToInt(Edit2.Text);
   if (a mod 3=0) then y := a-b
   else if (a mod b=0) and (b<>3) then y := 2*a*b
   else y := (1+b)/(2-a);
   Label1.Caption := FloatToStr(y)
end;

end;
end.

[tools]

Функции конвертирования строк в try...except обернуть можно, вместо проверки на пустую строку.
Либо : Form1.Edit1.Text <> ""

[s-andriano]

Тут структуру надо упрощать:
1. Не делать практически одну и ту же работу дважды.
2. Избавляться от Exit.

[Mad_Cat]

if Form1.Edit2.Text = '' then

if Form1.Edit1.Text = '' then

[eval]

TryStrToInt

[Gampos]

Скажите, работали ли вы в Лазарусе (не хочу новую тему создавать), но эта копия делфи не имеет упоминаний на форуме.