Программа запускается, но файл не открывается

procedure TForm1.AFOpenExecute(Sender: TObject);
var
i:integer;
 begin                               // Открыть файл с массивом
OpenDialog1.FileName:='Автомобиль.txt';                  // путь к файлу
OpenDialog1.InitialDir := GetCurrentDir + '\Text files' ;
if OpenDialog1.Execute then
begin
  TstrBuff:= TstringList.Create;        // создание листа записи
  TstrBuff.Delimiter:=',';              // разделитель
  Tstr:=TstringList.Create;
  Tstr.LoadFromFile(OpenDialog1.FileName);   // открытие файла в листе
  for I := 0 to Tstr.Count - 1 do      //  цикл записи
   begin
     TstrBuff.DelimitedText:=Tstr.Strings[i]; // разделитель
    additems((tstrbuff[0]),strtoint(tstrbuff[1]),strtoint(tstrbuff[2])); // запись элементов в массив
   end;
   Tstr.Free;
   TstrBuff.Free;
end;
end;

procedure TForm1.additems(a: String; b: Integer; c: Real)  ;
var
i,l:integer;
begin
l:=massive.get_lenght;
l:=l+1;
massive.set_lenght(l);  // создание массива с данными и объявление длины массива
element:=TAutomobile.Create(a, b, c); // запись в класс элементов
massive.additem(element,l-1);  // добавление объекта
for i := 0 to l-1 do begin // цикл для записи
StringGrid1.Cells[0,i+1]:=massive.Get_Marka(i);   // запись названия в первый столбец
StringGrid1.Cells[1,i+1]:=inttostr(massive.Get_Moshnost(i));  // запись водоизмещения во второй столбец
StringGrid1.Cells[2,i+1]:=floattostr(massive.Get_Stoimost(i));   //запись типа в третий столбец
end;
stringGrid1.RowCount:=stringgrid1.RowCount+1;    // добавление строки
end;