Zur Laufzeit Bild in einem Stringgrid Ändern

[Real_Thunder]

Hallo, ich habe volgenes Problem, ich möchte ein Bild zur Laufzeit Ändern Lassen...

Die Bilder werden Volgendermaßen im Stringgrid Gezeichnet

Delphi-Quellcode:

procedure Tstandart_frame_form.BuddyListDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Value_Split: TExplode_Array;

begin
// Bilder zeichnen

  setlength(Value_Split,length(Explode('<n|#|p>', my_buddies[ARow])));
  Value_Split:= Explode('<n|#|p>', my_buddies[ARow]);

  if Acol = 0 then begin
    if Value_Split[2] = 'OFFLINE' then  BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,offline_pic.Picture.Bitmap)
    else if Value_Split[2] = 'Abwesend' then  BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,abwesend_pic.Picture.Bitmap)
    else if Value_Split[2] = 'Versteckt' then  BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,offline_pic.Picture.Bitmap)
    else BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,online_pic.Picture.Bitmap);
  end;

// Ende Bilder zeichnen


end;

Nun möchte ich bei einem Bestimmten Ereignis, das diese Procedure noch einmal durchläuft....
nur weiß ich nicht wie ich es Bewerkstelligen soll. da diese Procedure ja viele werte hat


oder kann mir jemand sagen, wie ich einfach nur ein bild in einer bestimmten Zelle zur laufzeit ändern kann, ohne das alles durchläuft.

MfG Real_Thunder