Image als Bedingung?

[sakura]

Stimmt, so geht es nicht

Delphi-Quellcode:

 procedure TForm1.Image1Click(Sender: TObject);
var BitmapO: TBitmap;
begin
  if bild <> 1 then
    begin
      BitmapO := TBitmap.create;
      BitmapO.LoadFromFile('schloss offen.bmp');
      Image1.Picture.LoadfromFile('schloss offen.bmp');
      bild := 1;
    end
  else
    begin
      BitmapO := TBitmap.create;
      BitmapO.LoadFromFile('schloss zu.bmp');
      Image1.Picture.LoadfromFile('schloss zu.bmp');
      bild := 0;
    end;
end;

Nutze einfach Deine Bild Variable dafür

......