Kontaktmanager: Ladeschleif funktioniert nicht!

[Klaus01]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject); 
var 
I : Integer; 
S : String; 
U : String; 
begin 
  Form2.Listbox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'Speicher\LB.OKI'); 
  S := Form2.Listbox1.Items.Strings[0]; 
  Form2.ListBox1.Clear; 
  count := 0;
  for I := 0 to StrtoInt(S) do 
    begin 
     // Count := Count + 1;   { count wird nicht initialisiert}
      Loadanfang; 
      Listbox1.Items.Add(Edit13.Text+' '+Edit14.Text); 
      count := count + 1;
    end; 
  U := ExtractFilePath(Application.ExeName)+'Speicher\LB.OKI'; 
  DeleteFile(U); 
  Application.OnIdle := IdleHandler; 
  Listbox1.ItemIndex := 0; 
  Laden; 
end;

Kann eine Ursache sein.
Das die Daten richtig abgespeichert werden, kannst Du das überprüfen?

Grüße
Klaus