Problema con StringGrid
 

Hola tengo un problema con los stringgrid cuando manejo los heigth de estos, me sale el error GridIndex out of range;
un poco de codigo (son 3 stringGrid evento DbClick).

Código Delphi [-]
  MiAlto := Height-PedidoPanel.Height-DetallePedidoPanel.Height-OrdenPanel.Height-ListaOrden.Height-ListaDetalle.Height-45;
  if lpedido then lpedido:=false
  else lpedido:=true;
  if lpedido then
    begin
      self.ListaDetalle.Height := 0;
      self.ListaOrden.Align    := alTop;
      self.ListaOrden.Height   := 0;
      if (MiAlto>0) and (MiAlto<500) then
        //self.ListaPedido.Height := 100
        self.ListaPedido.Height := MiAlto
      else
        self.ListaPedido.Height := 60;
    end
  else begin
         self.ListaPedido.SetFocus;
         self.ListaPedido.Height := 60;
         self.ListaPedido.SetFocus;
         MiRow := ListaPedido.Row;
         self.ListaPedido.Row := 1;
         self.ListaPedido.Row := MiRow;
         self.ListaPedido.SetFocus;
//         self.PintarDetalle;
       end;