Изменение высоты строк

[djdron]

Вообщем должна меняться высота строк таблицы на ту которую укажет пользователь, но после указания окно появляется вновь.

procedure TForm1.N12Click(Sender: TObject);
var hh:integer;
var str:string;
begin
  while true do
    begin
      str:= InputBox('Ввод параметров таблицы.',
              'Введите высоту строк таблицы', '20');
      try
        hh:=StrToInt(str);
        StringGrid1.DefaultRowHeight:=hh;
      except
        ShowMessage
             ('Неверно введена высота строк таблицы');
      end;
    end;
   end;

[_Engine_]

убери while

[djdron]

Во спасиб, распутал ты меня !