Menampilkan Gambar di StatusBar di delphi

Saya share lagi bagaimana menambahkan gambar di StatusBar, menampilkan gambar atau image di StatusBar, gambar berada di StatusBar atau apala nama atau judulnya. :D Liat saja lah ScreenShotnya dibawah :

Sebelumnya tambahkan komponen imagelist dan isi gambarnya,dan ini lah Listing Programnya......

 procedure TForm1.FormCreate(Sender: TObject) ;
 begin
   StatusBar1.Panels[0].Style := psOwnerDraw;
   StatusBar1.Panels[1].Style := psOwnerDraw;
 end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar.Canvas do
   begin
     case Panel.Index of
       0: //Panel Kesatu
       begin
         //Brush.Color := clRed;
         Font.Color := clNavy;
         Font.Style := [fsBold];
       end;
       1: //Panel Kedua
       begin
         //Brush.Color := clYellow;
         Font.Color := clTeal;
         Font.Style := [fsBold,fsItalic];
       end;
     end;
     FillRect(Rect) ;

     TextRect(Rect,2 + ImageList1.Width + Rect.Left, 

                          2 + Rect.Top,Panel.Text) ;
   end;

   ImageList1.Draw(StatusBar1.Canvas, Rect.Left, 

                         Rect.Top, Panel.Index) ;

end; 

" KOMENX" DULU COY "