Sai do Formulário ao clicar no TBitBtn.

Amigos, boa noite.
Sou muito iniciante em desenvolvimento, como tal, me deparei com a seguinte situação:


procedure TFormPadrao1.btnOkClick(Sender: TObject);
var
converte: String;
x: integer;
begin
strSql:=' SELECT * FROM ' + nomeTabela;
strSql:= strSql + ' WHERE ID = ' + #39 + valorCampo.Text + #39;

if tipoId = 0 then
begin
converte:='';
for x:=1 to length (valorCampo.Text) do
begin
if(valorCampo.Text[x] in ['0'..'9'])then
begin
converte:=converte + copy(valorCampo.Text,x,1);
end;
end;
valorCampo.Text:= converte;
end;

if valorCampo.Text <> '' then
begin
StatusBar1.Panels[2].Text:=' Pesquisa por ID do Registro';

Executar:=sentencaSQL;
Executar:=exibePanels;
Executar:=navegacao;
Executar:=habilitaBotoes;
ValorCampo.Text:='';
end;

end;

Quado clico no no btnOk, ele fecha o formulário. Peço ajuda do fórum!


Tenho as seguintes Tabelas no Firebird 2.5:

CREATE TABLE TB_USUARIO (
ID DM_ID NOT NULL /* DM_ID = INTEGER NOT NULL */,
STATUS DM_S_OU_N /* DM_S_OU_N = CHAR(1) default 'N' CHECK(VALUE IN('S','N')) */,
MARCA DM_S_OU_N /* DM_S_OU_N = CHAR(1) default 'N' CHECK(VALUE IN('S','N')) */,
DATA_INC DM_DATA /* DM_DATA = DATE */,
DATA_HAB DM_DATA /* DM_DATA = DATE */,
DATA_ALT DM_DATA /* DM_DATA = DATE */,
NOME DM_NOME /* DM_NOME = VARCHAR(50) */,
DPTO VARCHAR(10),
LOGIN VARCHAR(10),
SENHA VARCHAR(6),
NIVEL CHAR(1)
);