procedure TFPedido.BitBtn1Click(Sender: TObject);
begin
If (DBEdit7.Text) and (DBEdit8.Text) and (DBEdit9.Text) = ' ' then MessageDlg('Debe especificar el número de Pedido',mtError,[mbOK],0)
begin
TbPedido.Insert;
MessageDlg('Los Datos se grabaron exitosamente!',mtConfirmation,[mbOK],0);
end;
end;