Закрытие формы

[Dennis777]

Ситуация. Есть форма, вызываемая методом Show. На ней - тесты. После тестов - по нажатию на кнопку - подводится итог, в Мэссэдж диалог выводится кол-во правильных баллов, по нажатию на ОК, должна закрыться модальная форма.

if i=10 then begin
bs:=MessageDlg('Вы набрали '+inttostr(right)+' баллов', mtCustom, [mbOK], 0);
  end;
if bs=mrOk then begin
Form18.Close;
PlaySound (PChar(ExtractFilePath (ParamStr(0)) + 'sounds/common/click.wav'), 0, 0);
end;

В то же время в процедуре ОнКлоз - происходит обращение к Форме 2 с целью записать результат

if lesson=1 then
grammar2a:=right;
if lesson=2 then
grammar3a:=right;
Action := caFree;

Проблема в том, что при таком закрытии - форма закрывается с вероятностью 50 процентов) То закрывается - то нет. Как можно исправить, подскажите пожалуйста?

[Аватар]

Модальные формы закрываются присвоением в ModalResult, например mrOk. И не в OnClose. Action := caFree; не нужен

[Dennis777]

Мне дико неудобно, но я немного перепутал(
Это не модальная, а обычная форма, вызываемая через Шоу

[Yurk@]

так не?

procedure WrteResults;
begin
  if lesson=1 then
    grammar2a:=right;
  if lesson=2 then
    grammar3a:=right;
end;
...
if i=10 then
begin
  MessageDlg('Вы набрали '+inttostr(right)+' баллов', mtCustom, [mbOK], 0);
  WriteResults;
  Form18.Close;
end;

[Dennis777]

переписал, не закрывается все равно(

[Yurk@]

ищи что не дает ей закрыться