ENQUETE COMO FAÇO ?

GENTE .. NA MINHA TABELA TENHO OS CAMPOS
´REVISTA´ ´JORNAIS´ ´FOLHETOS´ ´WEBSITE´ ´AMIGOS´ ´OUTROS
E NO FORM TEM UM COMBOBOX COM OS MESMO CAMPOS DA TABELA ..
ENFIM QUERO QUE QDO O USUARIO CLICAR NO BOTÃO OK ..
INCLUIR O REGISTRO QUE ELE SELECIONOU NO COMBOBOX.. E INCLUIR NA TABELA ..EX: ELE ESCOLHEU REVISTA NO COMBOBOX ..AI VAI INCLUIR NO CAMPO DA TABELA REVISTA ...

DESENVOLVI ESSA ROTINA MAS NÃO ESTÁ DANDO CERTO



procedure TForm_enquete.SpeedButton1Click(Sender: TObject);
BEGIN
begin
if ComboBox1.Text = ´´ then
Begin
ShowMessage(´Selecione uma opção ´);
ComboBox1.SetFocus;
exit;
end
else
BEGIN
dm.IBQenquete.Close;
dm.IBQenquete.SQL.Clear;
dm.IBQenquete.SQL.Add(´insert INTO enquete values(:REVISTA,:JORNAIS,:FOLHETOS,:WEBSITE,:AMIGOS,:OUTROS´);
if application.MessageBox(´Deseja confirmar a inclusão´,´Atenção´,mb_yesno+mb_iconwarning)=mryes then
IF ComboBox1.Text =trim(´REVISTAS´) then
BEGIN
dm.IBQenquetE.ParamByName(´REVISTA´).AsString:=ComboBox1.Text;
dm.IBQenquete.ExecSQL;
dm.IBQenquete.Close;
dm.IBTRANSACTION1.Commit;
end
else
dm.ibtransaction1.Rollback;
dm.IBQenquete.SQL.Clear;
dm.IBQenquete.SQL.Add(´select * from enquete ´);
dm.IBQenquete.Open;
end;
end;
end;

gente se estiver algo muito critico nessa rotina .. desculpa sou iniciante