[Resolvido] erro na inserção

Tô fazendo uma rotina para verificar se um remetente existe, não existindo, faço a inserção, se existir ñ faz nada. Na hora de inserir acontence o erro:

"servidor atual não oferece suporte para retornar vários conjuntos de registro numa única execução"

o código é:

dm.QRY_TelePrincipal.Close;
 dm.QRY_TelePrincipal.SQL.Clear;
 dm.QRY_TelePrincipal.SQL.Add('SELECT * FROM tele_principal WHERE remetente = '+ QuotedStr(campo2)+'');
 dm.QRY_TelePrincipal.open;
 dm.QRY_TelePrincipal.ExecSQL;

 if dm.QRY_TelePrincipal.IsEmpty then
 begin
 dm.QRY_TelePrincipal.Close;
 dm.QRY_TelePrincipal.SQL.Clear;
 dm.QRY_TelePrincipal.SQL.add('INSERT INTO tele_principal (remetente) VALUES ('+ QuotedStr(campo2) +')');
 dm.QRY_TelePrincipal.open;
 dm.QRY_TelePrincipal.ExecSQL;

// exatamente aki acontece o erro end else begin

 ShowMessage('Cheio');
 exit;
 end;