Code:
procedure TForm1.BitBtn4Click(Sender: TObject);
VAR b    :TBitmap;
    I,J  :Integer;
begin
  Form1.Hide;
  Form2.Show;
  b := TBitmap.Create;
  b.Width := 32;
  b.Height := 32;
Das soll doch bestimmt auch passend zur Bildgröße sein.

Und nur als Hinweis, "img_breite" wird nie verwendet. Jedenfalls hat Delphi das nicht nochmal gefunden Bild  

Das Destroy ist in diesem Fall auch nicht ganz so wichtig, da du ja das Array nie ganz wegwirfst, abgesehen vom Beenden des Programmes.

sast

edit:
@Andree 1x2m, das ist wirklich Klasse geworden.