Åbne Tekstfil

var
F : textfile;
buffer: string;
begin

    AssignFile(F, 'dinfil.txt');
    Reset(F);  //loader en linie af gangen
        while not EOF(F) do begin //kører denne løkke til enden af filen er nået
        ReadLn(F, buffer); //læser linien
        //lav feks tjek på linien
        //og udfra nogle if sætninger smid
        // den i de rette boxe osv
        end;
    end;

    CloseFile(F);

end;

hmm anden sidste end; skal ikke være der

Brug en TStringList LoadFromFile, tag første element

Edit1.Text := MyList[0];
MyList.Delete(0);
Memo1.Lines.Assign(MyList);

altså:


    var
F : textfile;
buffer: string;
begin

    AssignFile(F, 'dinfil.txt');
    Reset(F);  //loader en linie af gangen
        while not EOF(F) do begin //kører denne løkke til enden af filen er nået
        ReadLn(F, buffer); //læser linien
        //lav feks tjek på linien
        //og udfra nogle if sætninger smid
        // den i de rette boxe osv
        end;
   

    CloseFile(F);

end;