Windows Service em Delphi

Bom dia pessoal

Estou tentando criar um serviço através do delphi. Estou seguindo o esquema de alguns tutoriais, mas todos são básicos e não criam serviços com forms visíveis.

O problema que estou tendo é assim:

• a aplicação é um gerenciador de backup para bancos firebird, com agendador entre outras tarefas.
• na aplicação existe um form principal que contêm todas as atividades do programa.
• eu criei um serviço e configurei nas propriedades dele para ter interactive para true.
• e no método execute dele, eu crio o form através de uma thread pois quando colocava somente no método execute do serviço, a aplicação não conseguia receber respostas do teclado.
• só que o form que é aberto no thread não está funcionando.. não abre direito...

abaixo está o código do execute do serviço e da thread.Código do serviço:

procedure TsrvAdmin.ServiceExecute(Sender : TService);

begin

 trdPrincipal := trdPrincipal.Create;

 while not Terminated do

 ServiceThread.ProcessRequests(True);

 trdPrincipal.Terminate;

end;

Código da thread:

procedure TPrincipalThread.Execute;

begin

repeat

if not Assigned(frmPrincipal) and processExists('explorer.exe') then

begin

 frmPrincipal := TfrmPrincipal.Create(srvAndesAdmin);

 frmPrincipal.Show;

 end;

 Forms.Application.ProcessMessages;

 Sleep(1);

 until Terminated;

end;

o código do serviço é um que eu peguei nos tutoriais mais a execução da thread.

o problema todo está em que tem hora que não consigo abrir o form.

alguém já conseguiu fazer um serviço desse jeito?

desde já agradeço