Access violation at address

[googl]

Доброго всем времени суток. Проблема в следующем: делаю эффект анимации, рисуя на канве (загружаю рисунки из файла ресурсов в пайнтбокс). на форме пробелем не возникло, все работает. а вот когда то же самое пытаюсь сделать на фрейме, при образении к паинтбоксу вылетает ошибка. в чем может быть проблема?

 
  type
      TNewThread = class(TThread)
    protected
    procedure Execute; override;
    end;

type
  TNewCalcFrame = class(TFrame)
      PaintBox1: TPaintBox;

{$R ProgrBar.RES}

function LoadJPEGfromEXE( Number: integer ): TJPEGImage;
var
ResStream: TResourceStream;
begin
Result := TJPEGImage.Create;
ResStream := TResourceStream.CreateFromID( HInstance, Number, RT_RCDATA );
Result.LoadFromStream( ResStream );
ResStream.Free;
end;

procedure TNewCalcFrame.PaintBar(tmpJPG: TJPEGImage);
begin
NewCalcFrame.PaintBox1.Canvas.Draw( 1,1,tmpJPG );
end;

procedure TNewThread.Execute;
var
i: integer;
tmpJPG: TJPEGImage;
begin
for i := 1 to 12 do
begin
tmpJPG := LoadJPEGfromEXE( i );
NewCalcFrame.PaintBox1.Canvas.Draw( 1,1,tmpJPG );
Application.ProcessMessages;
tmpJPG.Free;
Sleep(70);
end;
end;

[=master=]

NewCalcFrame - это что такое, и что оно тут делает?

[googl]

Сообщение от =master=

NewCalcFrame - это что такое, и что оно тут делает?

 var
 NewCalcFrame:TNewCalcFrame;

[=master=]

А вторая часть вопроса?

И где эта штука инициализируется?

[googl]

Сообщение от =master=

А вторая часть вопроса?

И где эта штука инициализируется?

как глобальная переменная, потому что я не мог обратиться к паинтбоксу.

[Прик]

А если фрейм разместить на форме, то ошибки не будет.

[googl]

Сообщение от Прик

А если фрейм разместить на форме, то ошибки не будет.

хм. ну а как я его еще использую). вот когда на форме нажимаю на кнопку фрейма, выскакивает эта ошибка.

[=master=]

NewCalcFrame из PaintBar уберите, чтобы глаза не мусолил.

Это вы что этим срэдом делаете, таймер типа?

[googl]

Сообщение от =master=

NewCalcFrame из PaintBar уберите, чтобы глаза не мусолил.

Это вы что этим срэдом делаете, таймер типа?

ой, это старый код. процедуры паинтбар нет. идет прямое обращение к паинтбоксу. слееп имеется ввиду?

[Прик]

А эту проблему реально можно как-то пощупать?