（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2

for i:=1 to ParamCount-1 do
begin
　if S = '' then S := ParamStr(i);
　if FileExists( S ) then
　begin
　　FileNames.Add( S )
　　s:='';
　end
　else
　　S := S + ' ' + ParamStr(i);
　Inc(i);
end;

{ファイル名にカンマが含まれていたらアウト。}

S := '';
for i:=1 to ParamCount-1 do
begin
　{ドライブが含まれるなら直前までをファイル名とみなす}
　if ExtractFileDrive( ParamStr(i) ) <> '' then
　begin
　　if S <> '' then FileNames.Add( S );
　end
　else
　　S := S + ' ' + ParamStr(i);
end;