Erro na criação de classes

Olá rapaziada, tenho uma classe que gerencia a conexão com o banco
bem genérica, chamo ela ao criar o form e ela lê o .ini e se conecta com o banco.
até aqui tudo tranquilo e funcionando.
Queria colocar uma imagem nela dizendo "Processando..." enquando não dou o conected no DataBase;
algo desse tipo.

Criei uma Unit chamada Usplash, uma classe de splash
e dentro uma imagem : TImage;
passo os paramentros para a imagem, o caminho onde está a imagem escrito processando
só que ao chamar ela na classe de conexão dá um erro de violação

Estou deixando as duas classes aqui conforme estava tentando.
Se alguma boa alma entender o erro, me ajuda aí.
Agradecido!



************* CLASSE DE CONEXÃO *******************

unit Uconexao;

interface
uses
Variants, Classes, Graphics, Controls, ExtCtrls, Windows, Messages, SysUtils, IniFiles, DB, IBCustomDataSet, Dialogs, IBQuery, IBDatabase,
DBClient, Provider, Usplashs, IBScript, forms;


type Tconexao = class
protected
telasplash : Tsplash;
public
constructor conectar(ib:TIBDataBase; T:TIBTransaction);
destructor fim;
end;

implementation


destructor tconexao.fim;
begin

end;

constructor tconexao.conectar (ib:TIBDataBase; T:TIBTransaction);
var ArquivoINI : TIniFile;
str_server,str_path,str_filename,str_protocol :string;
begin
telasplash := tsplash.create();
try

ib.Connected:=false;
ArquivoINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+ '\Config.ini');
str_server := ArquivoINI.ReadString('NET','SERVER','');
str_protocol := ArquivoINI.ReadString('NET','CONNECTION_PROTOCOL','');
str_path := ArquivoINI.ReadString('FIREBIRD','SERVER_PATH','');
str_filename := ArquivoINI.ReadString('FIREBIRD','FILE_NAME','');
if str_protocol = 'TCP/IP' then
ib.DatabaseName := str_server+':'+str_path+str_filename;
if str_protocol = 'NETBEUI' then
ib.DatabaseName := '\\'+str_server+'\'+str_path+str_filename;
if str_protocol = 'SPX' then
ib.DatabaseName := str_server+'@'+str_path+str_filename;
if str_protocol = 'LOCAL' then
ib.DatabaseName := str_path+str_filename;
ib.Connected:=true;
t.StartTransaction;
except
ShowMessage('Erro de conexão com o banco: ' + str_path + str_filename);
end;

end;
end.





************ CLASSE DE SPLASH ******************




unit usplashs;

interface
uses
Variants, Classes, Graphics, Controls, ExtCtrls, Windows, Messages, SysUtils, IniFiles, DB, IBCustomDataSet, Dialogs, IBQuery, IBDatabase,
DBClient, Provider, IBScript, forms;

type tsplash = class(Tform)
protected
imagem: TImage;
public
constructor create();
end;


implementation
constructor tsplash.create();
begin
imagem.Visible:=false;
imagem.Picture.LoadFromFile( Application.ExeName+'img\processandoinformaceos.jpg' );
imagem.Visible:=true;

end;

end.