pileve, э-э-э... а у мееня нет label-ов )

miha, а как те нужно, суть опиши!

Ну есть memo1. А каждая строчка отображает н-ную строчку(пятую например) из файла "c:/fuck.txt".

miha, те нужно только 5 строчку из файла показать?

pileve, каждую 5-ю

Загрузи содержимое файла в мемо2, затем var j:integer; begin j:=0; for i:=0 to memo2.Lines.Count-1 do begin j:=j+1 if j=5 then begin j:=0; memo1.Lines.Add(memo2.Lines) end; end; end так попробуй

pileve, спасибо. Завтра п0пробую

var
i,n:integer;
s:string;
f:textfile;
begin
assignfile(f, "c:/fuck.txt");
reset(f);
i:=0;
n:=0;
repeat
for i:=n to n do
if not eof(f) then
readln(f, s);
sitelist.items.add(s);
n:=n+5;
until 1>0;
reset(f);
А в TListBox выводит только одну строчку(первую) из файла.

miha,уте цыкл нулевой от i:=n до n и n=0 попробуй for i:=0 to sitelist.items.count do

miha, AssignFile(f,"C:/Fuck.txt"); reset(f); i:=0; while not eof(f) do begin readln(f,s); inc(i); if i mod 5=0 then memo1.lines.add(s); end;

Al.exeY, спасибо, это то, что надо!

А реальн0 создать процедуру при нажатии на какую нибудь item в listbox?