Wörterbuch Datei

[Delphi-Narr]

Delphi-Quellcode:

var
i:integer;
Position:integer;
start,stop:longint;
begin
     ListeD.Clear;
     ListeE.Clear;
     SucheD.BeginUpdate;
     try
     for i:=0 to SL.Count-1 do
         begin                                         
              if Odd(i)=False then begin
              Position:=Pos(SucheD.text,SL[i]);
              if Position<>0 then begin
                 ListeD.Items.Add(SL[i]);
                 ListeE.Items.Add(SL[i+1]);
                 end;
              begin
                   start := gettickcount;  
                   repeat  
                   stop := gettickcount;  
                   application.processmessages;  
                   until (stop - start ) >= 100;  
                 end;
              end;
         end; 
     finally
     SucheD.EndUpdate;
     end;
end;

Ich hab keine Erfahrung mit Begin bzw. EndUpdate... Wäre das so richtig (hab auch noch gettickcount eingebaut)
Mein Delphi kennt das nämlich nicht...