Pero pensandolo bien mas bien debería ser así
Código Delphi
[-]
procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text = '') OR
(DBComboBox2.Text = '') OR
(DBEdit13.Text = '') OR
(DBLookUpComboBox5.Text = '') OR
(DBLookUpComboBox6.Text = '') OR
(DBLookUpComboBox7.Text = '') OR
(DBLookUpComboBox8.Text = '') OR
(DBEdit14.Text = '') OR
(DBEdit15.Text = '') OR
(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;
Con una sola de las condiciones que se cumpla te debe dar el error.....
Salud OS