Como chamar o Form principal

O Código abaixo verifica usuário e senha, depois como chamo o form principal do meu programa ??????, já tenho o uaurio e a senha de teste.....

procedure TFrmIdent.EdtCodigoKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [´0´..´9´,#8,13]) then
key := 0
else
begin
if (key = 13) then
EdtCodigo.SetFocus;
end;
end;

procedure TFrmIdent.EdtSenhaKeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) = vk_return then
key := 0;
end;

procedure TFrmIdent.BtnOkClick(Sender: TObject);
begin
with QryIdent do
begin
if (length(EdtCodigo.Text)=0) or (length(EdtSenha.Text)=0) then
begin
ShowMessage(´Usuário ou Senha Inválida.´);
Close;
EdtCodigo.SetFocus;
Exit;
end;
Close;
Sql.Clear;
Sql.Add(´Select * from tbl_usuario´);
Sql.Add(´where usr_codigo = ´+EdtCodigo.Text);
Sql.Add(´and usr_senha = ´+´´´+EdtSenha.Text+´´´);
Open;
if eof then
begin
ShowMessage(´Usuário ou Senha Inválido´);
Close;
EdtCodigo.SetFocus;
Exit;
end
else
strNomeUsuario:=FieldByName(´usr_nome´).AsString;
strCodigoUsuario:=FieldByName(´usr_codigo´).Text;
strSenhaUsuario:=FieldByName(´usr_senha´).AsString;
end;
end;