Надо не у классов вызывать методы, а у объектов этих классов, которые уже проинициализированы - им выделена память методом Create()
Code
procedure TForm1.FormCreate(Sender: TObject);
var GLMesh: TGLMesh;
begin
GLMesh:=TGLMesh.Create; // создание объекта
DC:= GetDC (Handle);
SetDCPixelFormat;
hrc:=wglCreateContext(DC);
wglMakeCurrent(DC,hrc);
glTranslatef(-2.5, 0.0, 0.0);
GLMesh.LoadFromFile ('Tor3.gms');
glTranslatef (2.5, 0.0, 0.0);
glTranslatef(-1.5, 0.0, 0.0);
GLMesh.LoadFromFile ('Tor3.gms');
glTranslatef (1.5, 0.0, 0.0);
end;
и во второй процедуре
Code
procedure TForm1.SetDCPixelFormat; //устанавливаем формат пикселей
var
nPixelFormat: Integer;
pfd: TPixelFormatDescriptor; // здесь
begin
FillChar(pfd,SizeOf(pfd),0);
pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER; // и здесь были синт. ошибки
nPixelFormat:=ChoosePixelFormat(DC, @pfd);
SetPixelFormat(DC, nPixelFormat, @pfd);
end;
