Öffnen mit...

[inherited]

for i := 1 to ParamCount do
ShowMessage(ParamStr(i));