Læse en bestemt linie fra .txt

Kode 

memo1.lines.loadfromfile('filnavn.txt');
Label1.Caption := memo1.lines[4];  // Her ud skifter du tallet 4 med den ønskede linje nummer -1 der skal aflæses

Kode 

var t: tstringlist;
begin
   t := tstringlist.create;
   t.loadfromfile('filnavn.txt');
   label1.caption := t[0];
   t.destroy;
end;

Kode 

var t: tstringlist;
begin
   t := tstringlist.create;
   t.loadfromfile('filnavn.txt');
   t[0] := 'Din ændring!';
   t.SaveToFile('filnavn.txt');
   t.destroy;
end;

Hvordan læser jeg en bestemt linie fra en tekst-fil? Det skal læses over i en label

Kode 

var
F:TextFile;
s:string;
i:integer;
begin
  If OpenDialog1.Execute then
  begin
    AssignFile(F,OpenDialog1.FileName);
    Reset(F);
    for i :=1 to 10 do ReadLn(F,s); // Antal linjer der skal skippes
    ReadLn(F,s);
    Edit1.text:=s;
    closeFile(F);
  end;
end;