Probleme mit SearchDialog

[snapman]

Hat sich erledigt hab das Beispiel aus der Delphi Hilfe genommen.

Delphi-Quellcode:

procedure TForm1.SearchFind1FindDialogFind(Sender: TObject);
var
  I, J, PosReturn, SkipChars: Integer;
begin
  for I := 0 to Memo1.Lines.Count do
  begin
    PosReturn := Pos(SearchFind1.Dialog.FindText,Memo1.Lines[I]);
    if PosReturn <> 0 then {found!}
    begin
      SkipChars := 0;
      for J := 0 to I - 1 do
        SkipChars := SkipChars + Length(Memo1.Lines[J]);
      SkipChars := SkipChars + (I*2);
      SkipChars := SkipChars + PosReturn - 1;

      Memo1.SetFocus;
      Memo1.SelStart := SkipChars;
      Memo1.SelLength := Length(SearchFind1.Dialog.FindText);
      Break;
    end;
  end;

Aber

Delphi-Quellcode:

   for J := 0 to I - 1 do 
        SkipChars := SkipChars + Length(Memo1.Lines[J]); 
      SkipChars := SkipChars + (I*2); 
      SkipChars := SkipChars + PosReturn - 1;

das check ich nichtso ganz..-kanns mir jemand erklären?