[Farruhjon]

Код:

Procedure delof3;
var f:TStrings;
i:integer;
begin
f:=TStinglist.Create();
f.LoadFromFile(путь к файла);
for i:=1 to 3 do
 f.lines.delete(f.count);
end;

Нажмите Спасибо