PaintBox, загрузить bmp картинку

[Melk1y]

имеется форма 1 с scrollbox в котором paintbox, и форма 2 в которой нужно через if в форме 1 в paintbox загрузить bmp картинку.

Есть форма1

procedure TForm1.FormCreate2(Sender: TObject);
begin
BMP:= TBitmap.Create;
end;

Далее


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
bmp.LoadFromFile('1e.bmp');
DoubleBuffered := True;
begin
ScrollBox1.Visible:=True;
ScrollBox2.Visible:=False;
ScrollBox3.Visible:=False;
ScrollBox4.Visible:=False;
end;
end;

и форма 2

procedure TForm2.Button1Click(Sender: TObject);
begin
case CheckListBox4.ItemIndex of
0..9: begin
et := 1;
kor := 0;
Shle := CheckListBox4.ItemIndex+1;
if shle = 10 then form1.image2.Picture.LoadFromFile(I ntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('1010.k.bmp'))));
end;
10..13: begin
et := 1;
kor := 1;
Shle := CheckListBox4.ItemIndex+1;
end;
14..17: begin
et := 1;
kor := 3;
Shle := CheckListBox4.ItemIndex+1;
end;

end; // case

form2.Close;

if FileExists (IntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('.k.bmp')))) then
begin

if et = 2 then form1.image2.Picture.LoadFromFile(I ntToStr(et)+ (IntToStr(kor)+ (IntToStr(Shle)+('.k.bmp')))); //вот зарузка на image все работает

как тоже самое сделать только с paintbox