Adressbuch, aber...

[quendolineDD]

Erstmal etwas anderes

Delphi-Quellcode:

        While (eof(datei)=false) do
                begin
                i := i + 1;
                SetLength(Kontakte, i);
                Read(datei, Kontakte[i]);
                end;

Du erhöhst i um jeweils 1. Damit schreibst du beginnend für i=1 in Kontakte[1] den ersten Wert.
Außerdem würde ich dir gerne die Methoden LoadFromFile von TStringList (bzw. TStrings) näher bringen, welche wesentlich effizienter und übersichtlicher arbeiten
Dann verstehe ich nicht, was in der pfad.txt stehen soll? Wenn es der Pfad zur Anwendung ist solltest du dir mal ParamStr(0) anschauen, welchen den Anwendungspfad enthält.