Fórum Login com saudação #529364

Boa noite a todos. Estou precisando de um help. É o seguinte: coloquei no meu programa um login que faz uma saudação ao usuário; tudo funciona bem até digitar a senha e receber a saudação: BOM DIA, BOA TARDE OU BOA NOITE, mas quando encera a telinha de login não consigo fazer abrir o FORM PRINCIPAL. Vou postar o código e esperar uma alma bondosa me falar onde devo inserir o codigo para chamar o principal...

public
{ Public declarations }
end;
var
form2: Tform2;
SAUDACAO: STRING;
HORA: STRING;
implementation
uses Uprincipal;

{$R *.dfm}

procedure Tform2.Timer1Timer(Sender: TObject);
begin
TIMER1.ENABLED:= FALSE;
close;
form1.caption:= 'Karlitos Sistemas - Usuario: '+edit1.text;
end;
procedure Tform2.BitBtn1Click(Sender: TObject);
VAR
SENHA: STRING;
begin
IF (edit1.text <> 'KARLITOS') AND (edit1.text <> 'Paula') THEN BEGIN
BEEP;
SHOWMESSAGE('Usuário não autorizado');
edit1.setfocus;
end
else begin
IF EDIT1.TEXT= 'KARLITOS' THEN BEGIN
SENHA:= '101060'
END
ELSE BEGIN
IF EDIT1.TEXT= 'Jackson' THEN
SENHA:= '123'
END;
IF CAMPOSENHA.TEXT= SENHA THEN BEGIN
LABEL3.CAPTION:= saudacao + ' ' +EDIT1.TEXT;
TIMER1.ENABLED:= TRUE;
end
ELSE BEGIN
beep;
SHOWMESSAGE('A senha não confere');
camposenha.setfocus;
END;
end;
end;
procedure Tform2.BitBtn2Click(Sender: TObject);
begin
application.terminate;
end;
procedure Tform2.FormActivate(Sender: TObject);
begin
edit1.text:= 'KARLITOS';
HORA:= TIMETOSTR(NOW);
if (hora) > '00:00:01' then
saudacao:= 'BOM DIA';
if (hora) > '12:00:01' then
saudacao:= 'BOA TARDE';
if (hora) > '18:30:01' then
saudacao:= 'BOA NOITE';
end;

procedure Tform2.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
Key:=#0;
SendMessage(Self.Handle, Wm_NextDlgCtl,0,0);

end;
end;
end.