Fórum Problema com classes #344633

Tenho o seguinte Código

Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
TLuiz.Create;
If Luiz.Conectado = True then
Label1.Caption := ´Conectado´;
end;


Unit2
unit Unit2;

interface

uses
DB, DBTables, IBDatabase;

type
TLuiz = class
public
DBase: TDatabase;
QrySQL: TQuery;
Conectado: Boolean;
constructor Create;
function Verificar : Boolean;
end;

implementation

constructor TLuiz.Create;
begin
DBase := TDatabase.Create(nil);
DBase.LoginPrompt := False;
DBase.AliasName := ´Luiz´;
DBase.DatabaseName := ´Teste2´;
DBase.Params.Append(´user name=SYSDBA´);
DBase.Params.Append(´password=masterkey´);
//DBase.TransIsolation := tiDirtyRead;
DBase.Connected := True;
Conectado := DBase.Connected;
end;

Quando executo a linha If Luiz.Conectado = True then da Unit 1 ele me retorna Erro de memória.

O que pode estar errado no código?


Vlw!!!!