Вопрос #42366

Суть в чем, значит пишу программу для отображения 3ds моделей, при запуске указывает на ошибку
PB.noonpaint:= pbPaint;
вот вся процедура
procedure TVid1.VidModuleCreate(Sender: TObject);
begin
OpenDialog1.Filter:= '3DStudio files (*.3ds) 3da Files|*.3ds;*.3da|3DStudio files (*.3ds)|*.3ds|3da Files|*.3da';
JpegImage:= TJpegImage.Create;
PB:= OpenDialog1.FindComponent('PaintBox') as TPaintBox;
PB.noonpaint:= pbPaint;
PL:= OpenDialog1.FindComponent('PictureLabel') as TLabel;
end;

Pb объявлено как PB: TPaintBox;
после компиляции при запуске ехе-шника ругается Access violation at address xxxxx in module...
Подскажите пожалуйста че ему надо? в принципе прога работает, только ошибки надоедают. такие подозрения что при открытии файла недостаточно памяти для чтения/записи.
p.s. гугл ни хрена не рулит!