var l:TStringlist;
begin
  l:=TStringlist.create;
  try
    l.loadformfile(filename);
    showmessage('總行數為:'  inttostr(l.count);
  finally
    l.free;
  end;
end;