Problemas na ordenação de relatórios utilizando stringgrid

Por favor, me ajudem tenho um stringgrid que mostra os campos disponiveis para ordenação do relatório ao usuário, quando o usuário da um duplo clique sobre o campo,ele deve ser adicionado a coluna ao lado, na primeira linha disponivel, só que o campo além de não passar para a outra coluna do StringGrid ele some, acredito eu que o problema deva estar nestes trechos de código, segue abaixo:

procedure TfrmAssImp.Move_Opcao(ColunaOrigem, ColunaDestino,
Linha: integer);
var
x: Integer;
begin
for x := 1 to I_QtdOpcoes do
if h_strgrdOrdenacao.Cells[ColunaDestino, x] = ´´ then
begin
h_strgrdOrdenacao.Cells[ColunaDestino, x] :=
h_strgrdOrdenacao.Cells[ColunaDestino, Linha];
h_strgrdOrdenacao.Cells[ColunaOrigem, Linha] := ´´;
break;
end;
Arruma_Coluna(ColunaOrigem);
end;

procedure TfrmAssImp.Arruma_Coluna(Coluna: Integer);
var
j: Integer;
begin
for j := 1 to I_QtdOpcoes - 1 do
if h_strgrdOrdenacao.Cells[Coluna, j] = ´´ then
begin
h_strgrdOrdenacao.Cells[Coluna, j] :=
h_strgrdOrdenacao.Cells[Coluna, j + 1];
h_strgrdOrdenacao.Cells[Coluna, j + 1] := ´´;
end;
end;

procedure TfrmAssImp.h_strgrdOrdenacaoDblClick(Sender: TObject);
begin
if h_strgrdOrdenacao.Row > 0 then
if h_strgrdOrdenacao.Col = 0 then
Move_Opcao(0, 1, h_strgrdOrdenacao.Row)
else
Move_Opcao(1, 0, h_strgrdOrdenacao.Row);
end;