APRENDIZ BRUXO

Galera valeu problema resolvido valeu!!!!

Pessoal não consigo localizar o erro no codigo abaixo fiz tudo que sabia mas não obtive resultado positivo procedure TFrmfornecedor.BtnsalvarClick(Sender: TObject); begin if dbnome.Text = '' then begin messagedlg('Preencha o nome do fornecedor',mtwarning, [mbok],0); end else if dbnome.Text <> '' then begin Qryfornecedor.SQL.Add('select*from tb_Fornecedor where for_nome = ''+dbnome.Text+'''); qryfornecedor.Open; begin messagedlg('Usuário já cadastrado',mtwarning,[mbok],0); dbnome.Clear; dbnome.SetFocus; end end else begin dmdados.Tb_fornecedor.FieldByName('for_id').Asstring := dbcodigo.Text; dmdados.Tb_fornecedor.FieldByName('for_nome').Asstring := dbnome.Text; dmdados.Tb_fornecedor.FieldByName('for_cnpj').AsString := dbcnpj.Text; dmdados.Tb_fornecedor.FieldByName('for_data').AsString := dbdat_cad.text; //dmdados.Tb_fornecedor.FieldByName('for_pro_ser').AsString := dbpro_ser.text; } dmdados.Tb_fornecedor.Open; Btnincluir.enabled := true; Btneditar.enabled := true; Btnsalvar.Enabled := false; Btncancelar.enabled := false; btnexcluir.Enabled := true; btnsair.Enabled := true; dbnome.Enabled := false; dbcodigo.Enabled := false; dbcnpj.Enabled := false; dbdat_cad.Enabled:= false; dbmobs.Enabled := false; dmdados.Tb_fornecedor.Post; end; end; fim . O PROBLEMA ESTA QUE NA SEGUNDA VERIFICAÇÃO há A NECESSIDADE DE SE REALIZAR UMA PESQUISA NUM BANCO DE DADOS PARADOX(7) MAS ISSO NÃO OCORRE ELE AFIRMA QUE O USUÁRIO JÁ FOI CADASTRADO SE alguém TIVER ALGUMA SUGESTÃO AGRADEÇO A TODOS QUE AJUDAREM.