>>590
uses Classes;
var i:integer;
begin
with TStringList.Create do try
　LoadFromFile( ParamStr(1) ) ; //ファイルを読む
　for i:=0 to Count-1 do writeln(Strings[i]);
　finally free; end;
end;