TIBDataBaase

No evento BeforeConect do meu TIBDatabase eu tenho o seguinte comando:

var
Arq: String;
Str: TStringList;
begin
Str:= Nil;
Arq:= ExtractFilePath( Application.ExeName ) + ´Banco.hav´ ;

If FileExists( Arq ) then
begin
try
Str:= TStringList.Create;
Str.LoadFromFile( Arq );
DB.DatabaseName:= Trim( Str[0] );
finally
Str.Clear;
Str.Free;
end;
end;
end;


O que está errado?
O delphi está dizendo... Undeclared identifinder ´Application´
Por que? Como Faço?