Comment copier les codes dans le composant AdvCodeList ?

salut,

si quelqun connait ce composant, jai besoin de connaitre comment faire enregistrer les code qui sont dedans dans un fichier.
moi, je connait comment enregistrer un seul code, mais quand je tape un autre fois, il enregistre au dessus du l'ancien code (dans le fichier):

ACodeBlock.code.savetofile('chemin de fichier');

cest le code d'enregistrer tous les codes dans un meme fichier ???

cest la repose

procedure TForm2.Button10Click(Sender: TObject);
var countcode,i : Integer;
begin
countcode := AdvCodeList1.CodeBlocks.Count;
for i := 0 to countcode - 1 do
begin
AdvCodeList1.CodeBlocks[i].Code.SaveToFile('C:\Documents and Settings\dev1\Bureau\test\test' + IntTostr(i) + '.txt');
end;

end;