[Antidelphik]

Да, спасибо, эту ошибку и некоторые другие я уже увидела, теперь проблема с тем что делфи у меня ругается на alias.name, вот код

Код:

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:=ExtractFilePath(PARAMSTR(0));
   Active:=true;
   if not (IsAlias(my_alias)) then
    begin
     ConfigMode:=cmPersistent;
     AddStandardAlias(my_alias,ExtractFilePath(PARAMSTR(0))+datapth,'PARADOX');
     SaveConfigFile
    end;
   DB.AliasName:=my_alias;
   DB.Connected:=true;
   with instruments do
    begin
     Prepare;
     Open
    end;
  end;

end;

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

end;

end.

а ошибки выдает на AliasName,Connected,instruments,Prepare,даже на with DB do выдает ошибку

Код:

[Error] Unit2.pas(55): '.' expected but 'DO' found