StringGrid + Icon einfügen

[Piro]

Delphi-Quellcode:

procedure Tfrm_main.sg_systeminfoDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 icon : TIcon;
Begin
 icon := TIcon.Create;
 icon.LoadFromFile('D:\Delphi\Delphi 7\SystemUtilities\icon\16main.ico');
 with sg_systeminfo do
 begin
   if ACol = 0 then
     case ARow of
       1: Canvas.Draw(Rect.Left,Rect.Top, icon);
     end;

   if ACol = 1 then
     case ARow of
       1: DrawText(Canvas.handle,PChar(' Betriebssystem'),-1,  Rect, DT_SINGLELINE+DT_LEFT+DT_VCENTER);
     end;

   if ACol = 2 then
     case ARow of
       1: DrawText(Canvas.handle,PChar(' '+GetOperatingSystem),-1,  Rect, DT_SINGLELINE+DT_LEFT+DT_VCENTER);
     end;
  end;
end;

So funktioniert es aus einer Datei. Aber wie aus der Imageliste?

Sven