Text wird im Textdokument in der falschen Form gespeichert

[Coder1990]

Seas,
ich habe ein Programm geschrieben dass Passwörter abspeichern soll
dieses System benutze ich um AllPW (listbox mit Passwörtern) und PWInfoData (Array of Array of String) abzuspeichern

Delphi-Quellcode:

var
i:integer;
k: integer;
Temp1,Temp2,line:String;
begin
AssignFile(Haupt.Data,ExtractFilePath(Application.ExeName)+'PWDATA.PW');
rewrite(Data);
i:=0;
k:=0;
repeat
WriteLn(Haupt.Data,Code(AllPW.Items[i],CodeFak));
repeat
WriteLn(Haupt.Data,Code('ÿ'+PWInfoData[i][k],CodeFak));
k:=k+1;
until PWInfoData[i][k]='';
i:=i+1;
until i>=AllPW.items.Count-1;
closeFile(Haupt.Data);

Eigentlich sollte das dann so ausgegeben werden (im Dokument):

Passwort1
ÿInfo1
ÿInfo2
ÿInfo3
Passwort2
ÿInfo1
ÿInfo2
...

aber es wird eher so ausgegeben

Passwort1
Passwort1ÿInfo1
Passwort1ÿInfo1ÿInfo2 .. usw.

was muss ich ändern damit das funkt?

Zitat:

//edit: ich möchte hiermit auf mein anderes Problem verweißen Problem