procedure TMainForm.FormCreate(Sender: TObject);
begin
HGE := HGECreate(HGE_VERSION);
HGE.System_SetState(HGE_USESOUND, False);
HGE.System_SetState(HGE_SCREENWIDTH, Self.Width);
HGE.System_SetState(HGE_SCREENHEIGHT,Self.Height);
HGE.System_SetState(HGE_SCREENBPP, 32);
HGE.System_SetState(HGE_HIDEMOUSE,False);
HGE.System_SetState(HGE_TEXTUREFILTER, False);
HGE.System_SetState(HGE_FPS,60);
HGE.System_SetState(HGE_HWNDPARENT,self.handle);
HGE.System_Initiate;
end;
begin
HGE := HGECreate(HGE_VERSION);
HGE.System_SetState(HGE_USESOUND, False);
HGE.System_SetState(HGE_SCREENWIDTH, Self.Width);
HGE.System_SetState(HGE_SCREENHEIGHT,Self.Height);
HGE.System_SetState(HGE_SCREENBPP, 32);
HGE.System_SetState(HGE_HIDEMOUSE,False);
HGE.System_SetState(HGE_TEXTUREFILTER, False);
HGE.System_SetState(HGE_FPS,60);
HGE.System_SetState(HGE_HWNDPARENT,self.handle);
HGE.System_Initiate;
end;