TStringList

Всем привет, ребят расскажите что не так?
var
  Form1: TForm1;
  listU, listN: TStringList;
  i: Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   for I:= 0 to 100 do
     listU[i]:= IntToStr(Random(100));
   for I := 0 to 100 do
     listN[i]:= IntToStr(Random(100));
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 for I := 0 to ListN.Count - 1 do
   Memo1.Lines.Add(listN[i])
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  for I := 0 to ListU.Count - 1 do
   Memo2.Lines.Add(listU[i])
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 listU:= TStringList.Create;
 listN:= TStringList.Create;
end;
выдает ошибку по клику на баттон1. List index out of bounds (0). не помню как делал что не было ошибки но почему то StringList я могу использовать только для одной процедуры. как мне сделать так чтобы можно было в нескольких процедурах им пользоваться, а еще лучше чтобы во всем проекте? Заранее спасибо)ааа, блина. вот я баран))с ошибкой то все понтно стало)) а вот с тем чтобы во всем проекте работать с одни стринг листом не могу понятьа, все, простите. наверное в чем то другом ошибка. короче с этим разобрался
1 ответ

Молодец