ClientDataSet y XML

[gsilvei]

Hola a todos, una vez necesitando ayuda del foro,
estoy trabajando un DBGrid y un TClienteDataSet para salvar en un XML, este es un pedazo de mi codigo:

Código Delphi [-]
procedure TFormCprograma.AntesdeSalvar;
var
    dt_normal      : TDateTime ;
    dt_soh_numero  : string ;
begin
   dt_normal := StrToDate(dt_inicio.text) ;
   dt_soh_numero  := formatdatetime('DDMMYYYY',dt_normal);
   XEdit3.text := (IntToStr(alumno.value)+trim(nome.text)+dt_soh_numero);
  TClientDataSet.SaveToFile('C:\Academia\xml\' + trim(XEdit3.text) + '.xml');
end;

Hasta ahi todo bien, una vez que salvo mi registro, el crea el XML,
ahora el problema es cuando cierro la aplicacion y llamo el LoadFromFile

Código Delphi [-]
TClientDataSet.LoadFromFile('C:\Academia\xml\' + trim(XEdit3.text) + '.xml);

Me carga en el DBGrid el XML, duplicado.
Si mi registro salve con 2 datos, cuando cierro la aplicacion y la abro nuevamente..me aparecen 4 registros, lo extraño es que mientras no cierro la aplicacion, funciona bien.
Alguien me podrian decir si estoy errando en alguna parte del codigo.
Gracias,
Saludos,
Guillermo