Ошибка при смене FormStyle во время выпонения программы

[Marsel737]

Всем доброго времени суток.

Подскажите пожалуста в чём тут проблема. Во время выполнения программы меняю FormStyle=fsStayOnTop на FormStyle=fsNormal или наоборот и выходит ошибка "Access violontation at address ... in module '...'. Read of address ..."

[Sensizu]

ну вообще-то так:

FormStyle:=[fsNormal]

[Marsel737]

Sensizu, а я делаю вот так:

FormStyle:=fsNormal;

Иначе не компилируется

[spamer]

Вот так все работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
end;

//-------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.FormStyle := fsNormal;
end;

[Marsel737]

Всем спасибо за внимание, исправил через try except. Проблема была не именно в FormStyle, а вообще в другом участке кода, но ошибка вылазила именно при смене FormStyle