irgendetwas stimmt mit dem speichern nicht.
wenn ich zwei Name in der Liste stehen habe, und schaue mir dann
die Datei 0.OKM und 1.OKM an so steht jeweils ein Name in jeder Datei.
Wenn ich das Programm dann beende, steht nur noch in der zweiten Datei 1.OKM
ein Name in der ersten Datei 0.OKM wurde der Name überschrieben.
in Deinem FormShow habe ich nochfolgendes geändert:
Delphi-Quellcode:
for I := 0 to StrtoInt(S) do
begin
Loadanfang;
Listbox1.Items.Add(Edit13.Text+' '+Edit14.Text);
Count := Count + 1;
end;
weil sonst die Datei 0.OKM nie gelesen wird.
Ich würde mal überprüfen wann Deine count Variable überall gesetzt wird.
Vielleicht nicht nach jeder Änderung speichern, sondern einen extra Button zum speichern machen,
oder dann speichern wenn ein neuer Datensatz angelegt wird und beim Schließen des Programms.
Und vielleicht mal den Code etwas einrücken und kommentieren, so ist er etwas schlecht zu lesen.
Grüße
Klaus