Access Violation, в процедуре, при задании размера TBitmap

[Zeraim]

Собственно, чертовщина какая то.
Создаю битмап и задаю сразу же размер в OnFormCreate:

bGraph := TBitmap.Create;
bGraph.Width := 100;
bGraph.Height := 100;

Проблем нету.
Дальше меняю в процедуре размер битмапа. И получаю Access Violation...
Вот как пробовал:

bGraph.Width := 200;
bGraph.Height := 200;

и

bGraph.Width := img1.Width;
bGraph.Height := img1.Height;

Размеры у имг вполне нормальные, я на нём что-то рисую и тд.
Процедура вызывается после создания битмапа.

Использую Delphi 7 Lite Full

[Аватар]

Похоже, что в процедуре обращение к несозданному объекту - bGraph или img1

[Zeraim]

С img1 всё в порядке, я вполне спокойно с ним работаю. Да и после создания битмапа его размеры меняются.
Может есть проблема с самим обращением к битмапу внутри функции ? Может надо как-то по другому к нему обращаться?
Просто делфи 7 лаит первый раз пользуюсь, и уже были косяки с передачей массива внутри вложенных процедур...

[Человек_Борща]

Использую Delphi 7 Lite Full

Я думаю, что проблема в этом.

[Zeraim]

Как оказывается, я не могу и с созданным внутри процедуры битмапом работать. Либо это невозможно в данной версии делфи, либо это как-то извратили )

Если кто сталкивался, или есть идеи как это может решаться, отпишитесь.

Спасибо за внимание )

[Sciv]

не могу и с созданным внутри процедуры битмапом работать

Так у Вас bGraph тоже внутри процедуры объявляется?

[Zeraim]

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

Так у Вас bGraph тоже внутри процедуры объявляется?

Нет, он объявляется глобально. Просто я проверял возможность работы с битмапом внутри процедуры принципе )

[Stilet]

есть идеи

Есть. Старая как мир - поставить точку прерывания на эти две строки и посмотреть чему равны bGraph. Уверен что либо он в нуле, либо у него нет таких свойств в наличии в рантайме.

[Аватар]

А код показать - объявление и обращение к переменным и процедурам можно?

[Zeraim]

Сообщение от Аватар

А код показать - объявление и обращение к переменным и процедурам можно?

Конечно, правда всётаки пределал грабли с ещё одним имг.

Var
bGraph : TBitMap;

***

procedure TForm2.FormCreate(Sender: TObject);
begin
  bGraph := TBitmap.Create;
  bGraph.Width := 100;
  bGraph.Height := 100; //Ошибок нету.
  SetGraph;
end;

***

procedure TForm2.SetGraph;
begin
  with img1 do
  begin
    ***
  end;
  bGraph.Width := img1.Width;
  bGraph.Height := img1.Height;
  //или
  bGraph.Width := 100;
  bGraph.Height := 100;//В обоих случаях выдаёт ошибку