// Создание днм примитивы
     Body[0] :=  dBodyCreate (World);
     dBodySetPosition        (Body[0], 0, cSTARTZ+cWHEEL_OFFSET, Index*4.5);
     dMassSetBox             (M, 1, cWIDTH, cHEIGHT, cLENGTH);
     dMassAdjust             (M, cCMASS);
     dBodySetMass            (Body[0], @M);
     Box[0] :=    dCreateBox (nil, cWIDTH, cHEIGHT, cLENGTH);
     dGeomSetBody            (Box[0], Body[0]);

       begin
glPushMatrix();
          Pos := dBodyGetPosition(Body[0]);
          Rot := dBodyGetRotation(Body[0]);
          SetTransform(Pos, Rot);
Boxs.Draw; // Отрисовка модели
glPopMatrix();

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