[alfil123]

bueno amigos mi problema loresolvi conesto, espero le sirva a alguin

Código Delphi [-]
 procedure TMantenimiento_Control.SpeedButton8Click(Sender: TObject);
 var n,m,a:integer;
 //m:string;
 begin
   inherited;
   ADOQuery1.Close;
   ADOQuery1.sql.Clear;
   ADOQuery1.SQL.Add('select *');//count(id_control) as n');
   ADOQuery1.SQL.Add('from d_c_clase ');
   ADOQuery1.SQL.Add('where id_control='+ le_id01.text);
    ADOQuery1.ExecSQL;
     ADOQuery1.open;
   if ADOQuery1.RecordCount =0
        then
        begin
      ADOQuery1.Close;
      ADOQuery1.sql.Clear;
      ADOQuery1.SQL.Add('delete');
     ADOQuery1.SQL.Add('from control ');
     ADOQuery1.SQL.Add('where id_control='+ le_id01.text);//06');//'+ le_id01.text );
     ADOQuery1.ExecSQL;
      ADOQuery1.Close;
       showmessage('Eliminacion completada')
       end
   else
   showmessage('Existe registros relacionados con este codigo, primero debe eliminarlos');
   exit;
 end;