function Tform1.CountLines(sFile:string):Integer;
Var lines:Tstringlist;
Begin
lines := Tstringlist.Create; //constructorn
with lines do
Begin
LoadfromFile(sFile);
end;
CountLines := lines.Count; //antal rader
end;