procedure TScene.LoadFromFile(const FileName: String);
var
     f : TextFile;
     i:integer;
     S : String;
begin
// открыть файла
AssignFile(F, FileName);
// Переоткрытие фала для чтения
Reset(f);
ReadLn(f, S);//пропускае строчку "Камаз"
ReadLn(f, Class); //Считываем Class автомобиля
ReadLn(f, S); //пропускае строчку "Пути к моделям"
for i := 0 to 1 do
   begin
ReadLn(f, Names[i]); // Считываем имена моделей для загрузки
end;
// Закрытие фала
CloseFile(f);
end;

Камаз
Car16 // Класс автомобиля
Пути к моделям
data\Models\Pricep.3DS
data\Models\Kamaz.3DS
data\Models\Wheels.3DS

uses crt;
var f:text;
i,k:integer;
s:string;
begin
assign(f,'file.txt')
reset(f);
writeln('Show you want variable');
readln(i);
for k:=1 to i do
begin
readln(f,s);
end;
writeln(s);
close(f);
end.

procedure ReadStringFromFile(FileName: String);
var
    i: integer;
    file: TextFile;
    tempString:  String;
begin
    i:=0;
    Assign(file, Filename);
    Reset(file);
    while not EOF(file) do
       begin
           ReadLn(file, tempString);
           Inc(i);
           ShowMessage(IntToStr(i)+': '+tempString);
       end;
    CloseFile(file);
end;