vielen Dank nochmal für die schnelle Hilfe
Nun ist das Problem gelöst und Prg läuft.

Code: Alles auswählen
procedure TForm1.BitBtn4Click(Sender: TObject);
var
bbb : TBitmap;
begin
bbb:=TBitmap.Create;
bbb.LoadFromLazarusResource('b2');
image2.Picture.Bitmap := LoadBitmapFromLazarusResource('b2');
end;
Code: Alles auswählen
Image1.Picture.Icon.LoadFromLazarusResource ('b2');