Прочитать строки из текстового файла

[Кинельски]

мне нужно прочитать строки из файла, использовал такой код читается только первая строка, как можно прочитать все строки (14),
и как можно прочитать определенную строку например 7-ю.?

procedure TForm1.Button1Click(Sender: TObject);
var
ss:textfile;
a,b,c:string;
begin
   assignfile(ss,'c:/ss.txt');
   reset(ss);
   readln(ss,a,b,c);
   edit1.Text:=a;
   edit2.Text:=b;
   edit3.Text:=c;
   closefile(ss);
end;

[Stilet]

как можно прочитать все строки

while no eof(f) do begin
    readln(ss,a,b,c);
 Чет делаем с прочитанным
end;

как можно прочитать определенную строку например 7-ю.?

while no eof(f) and (i<=7) do begin
    readln(ss,a,b,c);
    inc(i);
    Чет делаем с прочитанным
end;

Где i - Целое

[Waqq]

Всё очень просто

procedure TForm1.Button1Click(Sender: TObject);
var
ss:textfile;
a,b,c:array[0..6] of String;
i:integer;
begin
   assignfile(ss,'c:/ss.txt');
   reset(ss);
for i := 0 to 6 do
begin
   readln(ss,a[i],b[i],c[i]);
end;
  edit1.Text:=a[6];
  edit2.Text:=b[i];
  edit3.Text:=c[i];
   closefile(ss);
end;

Теперь edit1 будет выловать содержимое 7 строчки

[Кинельски]

вот добавил в код, но все равно выдает ошибку.

procedure TForm1.Button1Click(Sender: TObject);
var
ss:textfile;
a,b,c:string;
begin
   assignfile(ss,'c:/ss.txt');
   reset(ss);
   while not eof(ss) do
   begin
   readln(ss,a,b,c);
   edit1.Text:=a;
   edit2.Text:=b;
   edit3.Text:=c;

   closefile(ss);
   end;
   end;

если сделать так то читает третью строку

procedure TForm1.Button1Click(Sender: TObject);
var
ss:textfile;
a,b,c:string;
begin
   assignfile(ss,'c:/ss.txt');
   reset(ss);
   while not eof(ss) do
   begin
   readln(ss,a,b,c);
   edit1.Text:=a;
   edit2.Text:=b;
   edit3.Text:=c;
end;
   closefile(ss);
   
   end;

[alex_fcsm]

Заведите счетчик считанной строки

Count:=0;
while not(eof(f)) do
 begin
  readln(f,s)
  inc(Count);
 if Count=7 then ...
 end;

[Кинельски]

все разобрался как всем спасибо)))) за помощь
код вот такой что бы каждую строчку читать

var
ss:textfile;
a,b,c:array[0..6] of String;
i:integer;
begin
   assignfile(ss,'c:/ss.txt');
   reset(ss);
for i := 0 to 3 do
begin
   readln(ss,a[i]);
end;
  edit1.Text:=a[0];
  edit2.Text:=a[1];
  edit3.Text:=a[2];
   closefile(ss);

end;