Правильное закрытие формы

[grominfo]

Вот так не будет ошибки

procedure TForm11.sSpeedButton2Click(Sender: TObject);
var
  Form:TForm33;
begin
{...}
if (result=8) then begin
Form:=TForm33.Create(nil);
Form.Image1.Picture.Create.LoadFromFile('greet/right.jpg');
Form.sLabel1.Caption:='Вы набрали '+inttostr(result)+' баллов';
Form.Caption:='Здорово! Вы молодец!';
Form.sLabel1.Font.Color:=clWhite;
Form.sLabel1.Left:=round((Form.ClientWidth-Form.sLabel1.Width)/2);
Form.ShowModal;
Form.Free;
end;
Close;
end;

Если ошибка все же есть, значит где-то обращаетесь к несуществующему объекту.

Попробуйте закомментировать строчку

Form.Image1.Picture.Create.LoadFromFile('greet/right.jpg');

[Dennis777]

Сообщение от Slym

Form33.Image1.Picture.Create.LoadFromFile('greet/right.jpg');

что-то тут лишнее

Забавно. Это проблему я уже давно решил, но на этот явный косяк даже не обратил внимания. Откуда там взялся Криейт - ума не приложу, честно)

[Dennis777]

А теперь мне стало и вправду очень интересно.
Сейчас обратил внимание - проверил, оно все равно работает, даже не смотря на эту строчку.

Вопрос - почему? Более того, судя по всему, я ошибся где-то в самом начале, а потом разнес этот бред по 10ке форм. Но оно все равно нормально работает и обрабатывает...

[grominfo]

Сообщение от Dennis777

А теперь мне стало и вправду очень интересно.
Сейчас обратил внимание - проверил, оно все равно работает, даже не смотря на эту строчку.

Вопрос - почему? Более того, судя по всему, я ошибся где-то в самом начале, а потом разнес этот бред по 10ке форм. Но оно все равно нормально работает и обрабатывает...

Значит дело было не в форме, а в другом объекте, который где-то либо не создавался, либо уничтожался. Нужно пошагово отлаживать программу

[Dennis777]

Дело было именно в форме, потому что до этого, я использовал просто Close, вместо Formxx.Close/ После того, как сменил - перестало выскакивать.

Но все-таки, я не могу понять, почему нормально загружается картинка в этот имейдж?)

А форум все-таки, клевая штука. Глаз настолько затерся, что не замечает порой очевидных ляпов.

[grominfo]

Дело было именно в форме, потому что до этого, я использовал просто Close, вместо Formxx.Close/ После того, как сменил - перестало выскакивать.

Но это выходит за грань логики. Close работает в контексте объекта. То есть, если вызывается в классе TFormxx, то оно аналогично вызову Formxx.Close;.

Другое дело, если бы в процедуре использовался другой контекст, например with Form1 do. Тогда вызов Close внутри конструкции вызвал бы метод другого объекта.

Поэтому я все равно придерживаюсь мнения, что дело было не в форме.

[grominfo]

Еще одна мысль меня посетила. Нет ли у вас в программе пользовательской процедуры с тем же именем?

procedure Close();
begin
{...}
end;

[Dennis777]

Я тоже не могу понять, честное слово!

Процедуры с названием Клоз - нету. Когда Клоз вызывается без использования модальной формы - всегда достаточно было написать Close без указания названия формы - и все работало идеально. А в этом случае, ошибка возникала в 10-20 процентах случаев. Когда добавил номер формы - перестало.

Возможно, возникал какой-то конфликт из-за использования модальной формы.