memo vers txt probleme

voila
j'ai recupere lle contenue d'un fichier texte vers 2 memo en changenant une ligne pressise du memo1 pas une autre voila comment :

AssignFile(F,'C:\ProgDVB\SoftCam.Key');
Reset(F);
while  ( eof(F)= false )do
 begin
        Readln(F,txt);
        index:=index+1;
        memo.Lines.Insert(index,txt);
        if MidStr(txt,1,11)='V 007C00 01' then memo1.Lines.Insert(index,'V 007C00 01 '+cd)
                                                              else memo1.Lines.Insert(index,txt);                         end;
et apres ca je vais enrgistrer le contenue du memo1 dans le memme fichier texte voila comment:

AssignFile(F,'C:\ProgDVB\SoftCam.Key');
Reset(F);
Rewrite(F);
for i:=1 to index do begin
                               Writeln(F,(memo1.Lines.ValueFromIndex[i] ));
                              end;
CloseFile(F);
le problemme c que dans le fichier texte chaque ligne manque d'un caractere au debut voici un exemple :
au lieu d'avoir ca normalement :
N 7001   00 54C1FAB66C9D6808 ;Polsat 13°E
N 7001   01 79F56042FCEFE0E0 ;Polsat 13°E
N 7101   00 54C1FAB66C9D6808 ;Polsat 13°E
N 7101   01 79F56042FCEFE0E0 ;Polsat 13°E
N 4E01   00 BA3E87A2B6DA658E ;Dream TV 146°E
N 4E01   01 3D3D7E84E027BC27 ;Dream TV 146°E
N 4F01   00 BA3E87A2B6DA658E ;Dream TV 146°E
N 4F01   01 3D3D7E84E027BC27 ;Dream TV 146°E
g ca a la place :
 7001   00 54C1FAB66C9D6808 ;Polsat 13°E
 7001   01 79F56042FCEFE0E0 ;Polsat 13°E
 7101   00 54C1FAB66C9D6808 ;Polsat 13°E
 7101   01 79F56042FCEFE0E0 ;Polsat 13°E
 4E01   00 BA3E87A2B6DA658E ;Dream TV 146°E
 4E01   01 3D3D7E84E027BC27 ;Dream TV 146°E
 4F01   00 BA3E87A2B6DA658E ;Dream TV 146°E
 4F01   01 3D3D7E84E027BC27 ;Dream TV 146°E

comme vous le remarquer il manque le 'N' au debut de chaque ligne !!! comment corriger ca merci
http://1tik.free.fr