[Delphi] Blad w kodzie ;>

witam ;]

mam taka procedure w programie:

procedure ImportServerList; // Wyswietla liste kontaktow w ListBoxie
var
  i, p: Integer;
  s, c: String;

begin
  AddLog('Lista Serverow zostala zaimportowana z Servera GG');

  for i := 0 to Form1.Memo5.Lines.Count do
    begin
      if Length(Form1.Memo5.Lines.Strings[i]) > 2 then
        begin
          p := Pos(';', Form1.Memo5.Lines.Strings[i]);
          s := Copy(Form1.Memo5.Lines.Strings[i], 0, p-1);

          c := Copy(Form1.Memo5.Lines.Strings[i], Length(s)+Length(s)+7, Length(Form1.Memo5.Lines.Strings[i]));
          c := Copy(c, 0, Pos(';', c)-1);

          if Length(s) and Length(c) >= 1 then
            begin
              Form1.ListBox1.Items.Add('- '+s);
              Form1.GGLite1.GGAddUserNotify(StrToInt(c), False);
            end;
        end;
    end;

  ShowMessage('blabla');
end;

na samym dole jest ShowMessage('blabla'); ktore sie wyswietla tylko jak lista kontaktow jest poprawna, czyli jak nazwa i numer sa rowne badz dluzsze niz 1, a nazwa i numer sa dziwnie wyszukiwane :P bo to ma byc specjalna lista serverkow dla trojana :D jak sie loguje na swoje gg to numery sa inaczej zapisane i ma wyswietlic blad, ale stanelem na tym, ze jak jest zly numer/server to nie wyknuje dalej kodu... tj. nie wyswietla ShowMessage('blabla');

zapewne jest tu jakis blad w kodzie, ktos cos widzi? :)

i := 0 to Form1.Memo5.Lines.Count - 1

Indeksy liczy się od 0 do ilości -1, a nie od 0 do ilości. I następnym razem napisz co to za błąd. :P

nie wiem o co ci z tym chodzi :P ale ok.. dopisalem -1, ale 'blabla' dalej niewyswietla :>

// edit

dokladniej to blad jest tu:

Form1.ListBox1.Items.Add('- '+s);

skasowalem kod i dodawalem po kilka lini poki przestalo dzialac... bez tej lini dziala, zamienilem to na

Form1.ListBox1.Items.Strings[i] := '- '+s;

ale to samo :(