Problema no OnShow do formulário

Estou com o seguinte problema: No evento OnShow de um formulário chamo um procedimento que no meu caso é o BBOKClick, só que quando cai no Close ele não fecha o formulário devido ele estar ainda de alguma forma estar no OnShow. Alguém sabe como faço para resolver isto?

Desde já Obrigado.

procedure TFormServidor.BBOKClick(Sender: TObject);
begin
If Conexao then
begin
Application.Messagebox(´Conexão com o Banco de Dados realizado com sucesso !´,
´Sucesso´, Mb_Ok + MB_ICONINFORMATION);
NomeServidor := EServidor.Text;
Close;
end;
end;

procedure TFormServidor.FormShow(Sender: TObject);
begin
BBOKClick(BBOK);
end;