OpenGL и Delphi...Программа не запускается

[dicreep]

Ребята, горит диплом...не знаю что сделать. exe-шный файл не запускается пишет Eolesyserror in module Класс не зарегестрирован.....когда заходишь в dpr пишет OpenGL not found....в делфи запускаешь прогу, он пишет File not found Gllib_TLB.dcu. Хотя эта же прга работает на другом компе. Точнее сказать она работает только на одном компе, а на остальных нет....
Вот текст кода...помогите пожалуйста, скоро защита, а прга не работает((((((((((((((

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, ExtCtrls, OleCtrls, GLLib_TLB,
TeEngine, Series, TeeProcs, Chart;

type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
Button2: TButton;
Button1: TButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
PageControl3: TPageControl;
TabSheet5: TTabSheet;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Edit6: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Button7: TButton;
ComboBox3: TComboBox;
Label19: TLabel;
Button8: TButton;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Timer1: TTimer;
PageControl2: TPageControl;
TabSheet3: TTabSheet;
Label3: TLabel;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label4: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button4: TButton;
Chart1: TChart;
Series1: TFastLineSeries;
ComboBox1: TComboBox;
Button3: TButton;
TabSheet4: TTabSheet;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label14: TLabel;
Chart2: TChart;
Series2: TFastLineSeries;
Button5: TButton;
ComboBox2: TComboBox;
Button6: TButton;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

Это не весь код, потому что весь код не вмещается...Дальше уже само построение графиков и вычисления. Может кто-то сталкивался стакой проблемой. Подскажите пожалуйста, что делать?Могу скинуть прогу на ящик..