Quelltext kommentieren

[coocky]

Hey, ich habe folgenden Quelltext in ein Programm eingefügt und soll diesen jetzt kommentieren, versteh ihn aber nicht. Könntet ihr ihn bitte kommentieren? Und Weiß jemand, wie man diesen Quelltext in einem Struktogramm darstellt, weil ich die Struktur with as noch nicht kenne.

Delphi-Quellcode:

begin
  with Control as TListBox do begin
    Canvas.FillRect(Rect);
    Canvas.FontColor:=TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left +2, Rect.Top, Items[Index]);
  end;
end;