[Antidelphik]

Очень прошу помогите, завтра сдавать эту БД, пишу как могу но в ней много ошибок, прошу помочь исправить их. Вот код:

Код:

unit Unit2;

interface

uses
  SysUtils, Classes, DBTables, DB;

type
  TDataModule2 = class(TDataModule)
    Table1: TTable;
    Session1: TSession;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const my_alias = 'instruments';
      datapth = 'C:\Documents and Settings\1\Ðàáî÷èé ñòîë\ìîÿ ðàáîòà â delphi\ÁÄ';

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
 with session do
  begin
   Active:=false;
   PrivateDir:=ExstractFilePath(PARAMSTR(0));
   Active:=true;
   if not (IsAlias(my_alias)) then
    begin
     ConfigMode:=cmPersistent;
     AddStandartAlias(my_alias,ExstractFilePath(PARAMSTR(0))+datapth,'PARADOX');
     SaveConfigFile
    end;
   DataBase.AliasName:=my_alias;
   DataBase.Connected:=true;
   with instruments do
    begin
     Prepare;
     Open
    end;
  end;

end;

procedure TDataModule2.DataModuleDestroy(Sender: TObject);
begin
 with datebase do
  if connected then
   begin
    CloseDataSets;
    Connected:=false;
   end;
 with session do
  if active then
   close

end;

end.