title: delphi 7 TImage and TImageList
body: <p>let i be integer private </p>
  
  <p>the code </p>
  
  <pre><code>procedure TForm1.Image1Click(Sender: TObject);
  begin
    inc(i);
    ImageList1.GetIcon(i mod 4,Image1.Picture.Icon);
  end;
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    i:=0;
    ImageList1.GetIcon(i mod 4,Image1.Picture.Icon);
  end;
  </code></pre>
  
  <p>how do i stretch the icon from the list to fit the size of Image1?</p>