Grid Index out of range

[javicho_villa]

Este es el codigo del evento DbClick

Código PHP:

  if lpedido then lpedido:=false
  else lpedido:=true;
  if lpedido then
    begin
      self.ListaDetalle.Height := 0;
      self.ListaOrden.Align    := alTop;
      self.ListaOrden.Height   := 0;
      self.ListaPedido.Height  := self.Height - self.PedidoPanel.Height -
      self.DetallePedidoPanel.Height - self.OrdenPanel.Height -
      self.ListaOrden.Height - self.ListaDetalle.Height - 45;
    end
  else begin
         self.ListaPedido.Height := (self.ListaPedido.DefaultRowHeight * 4) + 7 ;
         self.ListaPedido.SetFocus;
         MiRow := ListaPedido.Row;
         self.ListaPedido.Row := 2;
         self.ListaPedido.Row := MiRow;
         self.ListaPedido.SetFocus;
         //self.PintarDetalle;
       end; 


despues lpedido=false se ejecuta este codigo y cierro el formulario me sale ese error.