bild aus imagelist in Image

[dajuhsa]

ich hab schon wieder ein problem...

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
BM: TBitmap;
begin
  if Key=#37 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(1, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#38 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(3, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#39 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(2, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
  if Key=#40 then begin
    BM := TBitmap.Create;
    try
      Imglist1.GetBitmap(0, BM);
      image1.Picture.Bitmap.Assign(BM);
    finally
      BM.Free;
    end;
  end;
end;

funktioniert nicht, kein bild, keine reaktion...