Exportar dados do DBGRID para Excel

Galera estou com um codigo aqui para exportar os dados do DBgrid para o Excel, esse codigo está funcionando corretamente mas com um unico problema.

Tenho um campo no meu banco de dados com codigos tipo esse 020761181916377537000001 que está como VARCHAR em meu BD.

quando eu exporto para o Excel ele me da o seguinte codigo nesse campo 22+E2207+22 e mesmo que eu tente mudar a formatação no Excel ele não muda o valor fica sempre esse.

segue o codigo para exportar:

procedure TForm1.BitBtn1Click(Sender: TObject);

var linha, coluna : integer;
var planilha : variant;
var valorcampo : string;
begin

//DM.SQLQuery1.CachedUpdates := true;
planilha:= CreateoleObject(´Excel.Application´);
planilha.WorkBooks.add(1);
planilha.caption := ´Exportando dados do dbGrid para o Excel´;
planilha.visible := true;

DM.ClientDataSet1.ApplyUpdates(1);
DM.ClientDataSet1.First;
for linha := 0 to DM.ClientDataSet1.RecordCount - 1 do
begin
for coluna := 1 to DM.ClientDataSet1.FieldCount do
begin
valorcampo := DM.ClientDataSet1.Fields[coluna - 1].AsString;
planilha.cells[linha + 2,coluna] := valorCampo;
end;
DM.ClientDataSet1.Next;
end;
for coluna := 1 to DM.ClientDataSet1.FieldCount do
begin
valorcampo := DM.ClientDataSet1.Fields[coluna - 1].DisplayLabel;
planilha.cells[1,coluna] := valorcampo;
end;
planilha.columns.Autofit;


end;

Se alguem suber oq está acontecendo por favor me ajude.

Valeuu