H:=GetDC(Panel1.Handle);
  //if H<>0 then showMessage('success');
  SetDCPixelFormat(H);
  HRC:=wglCreateContext(H);
  wglMakeCurrent(H,HRC);

  glPolygonMode(GL_FRONT_AND_BACK, GL_FILL);
  glClearColor(1,1,1,1);
  glClearColor(0.5, 0.5, 0.5, 0.5); // цвет фона
  glClear(GL_COLOR_BUFFER_BIT); // очистка буфера цвета
  glViewPort(0,0,Panel1.Width,Panel1.Height);

  glClear(GL_DEPTH_BUFFER_BIT or GL_COLOR_BUFFER_BIT);
  glEnable(GL_DEPTH_TEST);
  glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
  glEnable(GL_TEXTURE_2D);
  LoadTexture('wood1.bmp',BoxTexture);
  glShadeModel(GL_SMOOTH);
  glEnable(GL_COLOR_MATERIAL);
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);

  glLoadIdentity;
  glFrustum (-1, 1, -1, 1, 3, 10); // задаем перспективу
  glTranslatef (0.0, 0.0, -8.0); // перенос объекта - ось Z
  glRotatef (30.0, 1.0, 0.0, 0.0); // поворот объекта - ось X
  glRotatef (70.0, 0.0, 1.0, 0.0); // поворот объекта - ось Y
  InvalidateRect(Handle, nil, False);


  glBegin (GL_QUADS);
  glNormal3f(0.0, 0.0, 1.0);
  glVertex3f(1.0, 1.0, 1.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(-1.0, -1.0, 1.0);
  glVertex3f(1.0, -1.0, 1.0);
  glEnd;

  glBegin(GL_QUADS);
  glNormal3f(-1.0, 0.0, 0.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(-1.0, 1.0, -1.0);
  glVertex3f(-1.0, -1.0, -1.0);
  glVertex3f(-1.0,-1.0,1.0);
  glEnd;

  glBegin(GL_QUADS);
  glNormal3f(0.0, 1.0, 0.0);
  glVertex3f(-1.0, 1.0, -1.0);
  glVertex3f(-1.0, 1.0, 1.0);
  glVertex3f(1.0, 1.0, 1.0);
  glVertex3f(1.0, 1.0, -1.0);
  glEnd;

ExtractFilePath(Application.Exename)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    iName: String;    // Иям ini-файла
    wFolder: String;  // Рабочая папка
    function GetSpecialFolderPath(const Folder: Integer; const CanCreate: Boolean): string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }
// Собсно юзается SHGetSpecialFolderPath для удобства "обернутая" в данный вариант.
// Указывается константа нужной папки и необходимость создания оной в случае отсутствия.
function TForm1.GetSpecialFolderPath(const Folder: Integer; const CanCreate: Boolean): string;
var
  Path: array [0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderPath(0, Path, Folder, CanCreate);
  Result:= Path;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  wFolder:= '\Shader 3.0\'; // Нафиг '\My Games' ... гулять - так гулять... ;)
  if not DirectoryExists(GetSpecialFolderPath(CSIDL_PERSONAL, False) + wFolder) then
    ForceDirectories(GetSpecialFolderPath(CSIDL_PERSONAL, False) + wFolder);
  iName:= GetSpecialFolderPath(CSIDL_PERSONAL, False) + wFolder + ChangeFileExt(ExtractFileName(Application.ExeName), '.ini');
  Form1.Caption:= iName; // Типа глянуть
end;

end.

procedure TForm1.FormCreate(Sender: TObject);
var Ini: TIniFile;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion', False);
s:=R.ReadString('RegisteredOwner');\\отсюда в общем-то и выковыриваю имя пользователя
R.Free;
Ini:= TIniFile.Create('C:\Documents and Settings\'+s+'\Мои документы\My Games\Oblivion\Oblivion.ini');

R:=TRegistry.Create;

R:=TRegistry.Create(KEY_READ);