Images mit Schleife durchlaufen

[Lucifer]

OK hat erstmals bisschen funktioniert aber nicht ganz.

Delphi-Quellcode:

 
        if(frmMonster.imgItem1.Picture = nil)then
        begin
          frmMonster.imgItem1.Picture.LoadFromFile(ItemsDir+'white_potion.bmp');
        end
        else if(frmMonster.imgItem2.Picture = nil)then
        begin
          frmMonster.imgItem2.Picture.LoadFromFile(ItemsDir+'white_potion.bmp');
        end
        else if(frmMonster.imgItem3.Picture = nil)then
        begin
            frmMonster.imgItem3.Picture.LoadFromFile(ItemsDir+'white_potion.bmp');
        end

Dies scheint irgendwie nicht zu funktionieren, ich weis nicht weshalb...