Fórum Erro ao exportar datas para o excel #333826

Pessoal,

Boa Noite.

Estou com um problema para exportar dados para o excel.

Consigo exportar normalmente, só que tá dando erro nas datas.

Ex: 01/09/2006 fica assim no excel: 09/01/2006, isso até o dia 12, apartir do dia 13 fica normal 13/09/2006.

Preciso que todos as datas sejam no formato correto, já pesquisei aqui no forum hj o dia todo e fiz varios testes sem sucesso.

Coloquei dentro de um button:

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

dm.QrCadastro.Open;

planilha:=CreateOleObject(´Excel.Application´);
planilha.Workbooks.open(´C:\exportar\tabela.xls´);
planilha.caption:=´Relatorio de OSs´;

planilha.Visible:=True;

Planilha.cells[1]:= ´DATA´;
Planilha.cells[2]:= ´REP´;
Planilha.cells[3]:= ´TOTAL´;

Dm.QrCadastro.First;

for linha:=0 to Dm.QrCadastro.recordcount-1 do
begin
for Coluna:=1 to Dm.QrCadastro.FieldCount do
begin

Valorcampo:= Dm.QrCadastro.Fields[coluna-1].asstring;
Planilha.cells[linha+2,coluna]:=valorcampo;

end;
Dm.QrCadastro.next;
end;

Me ajudem galera.

Sds.