StringList.Count

[Frage95]

Delphi-Quellcode:

procedure TfrmMainForm.ListBoxShow;
var
   EdVariable: string;
   LbCount,i : integer;

begin
   EdVariable := frmMainForm.EdNickname.Text;
   LbCount := Memo1.Lines.Count;
   if LbCount <= 0 then begin
      i := 0;
   end;
   if EdVariable <> '' then begin
      i := Memo1.Lines.Count;
      i := i+1;
      Memo1.Text := (frmMainForm.EdNickname.Text + ' ' + '[' + InttoStr(i)+ ']');

ich hab das jetzt so gemacht da memo.lines ja vom Typ Tstringlist ist muss ich ja keine neue anlegen habe aber immernoch das gleiche problem