Struktogramm mit WITH - wie zu handhaben ?

[Cyberbob_at_tot]

Hallo zusammen,
habe hier folgenden Quelltest aus dem ich ein Struktogramm machen soll, ich komme da aber mit dem With nicht zurande.

Delphi-Quellcode:

With Schuelerliste.Items[i].Subitems do begin
    For j:=1 to length(NAMEN)-1 do Begin
         sunode:=ID.Item[i].selectSingelNode(NAMEN[i]);
         If  sunode <> nil Then
                           Add(Subnode.Text)
         Else
                           Add('');
         end;
     End;

Wie habe ich dieses With im Struktogramm zu handhaben ?


BIG THX

Cyberbob