[[egostar]]

Yo creo que debería ser así,

Código Delphi [-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text = '') and 
   (DBComboBox2.Text = '') and 
   (DBEdit13.Text = '') and 
   (DBLookUpComboBox5.Text = '') and
   (DBLookUpComboBox6.Text = '') and 
   (DBLookUpComboBox7.Text = '') and 
   (DBLookUpComboBox8.Text = '') and 
   (DBEdit14.Text = '') and 
   (DBEdit15.Text = '') and 
   (DBLookUpComboBox1.Text = '') then 
    MessageDlg('Hay Casillas sin Llenar Por Favor Llenarlo',mtError,[mbOK],0)
   begin
      TbPedido.Insert;
      MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
   end;
end;

No puedes hacer la comparación como la quieres hacer

Salud OS