아래와 같이 하면, 이미지 사이즈가 틀렸다고 에러가 나네요..



procedure TInputTextForm.FormCreate(Sender: TObject);

VAR

I :Integer;

ListItem : TListItem;

Image : TBitMap;

begin

Left := FMapForm.Left + (FMapForm.Width div 2) - (Width div 2);

Top := FMapForm.Top + (FMapForm.Height div 2) - (Height div 2);



for i:=0 to 255 do

begin

Image := TBitmap.Create;

Image.Height := 32;

Image.Width := 32;

Image.LoadFromFile('.CustSymbol'+ InttoStr(i)+'.bmp');

ImageList1.Height :=32;

ImageList1.Width :=32;

ImageList1.AddMasked(Image, clWhite);

end;

end;