命令行参数，程序参数

If system.ParamCount > 0 Then

Begin

filename := system.paramstr(1);

OpenFile(filename);

End;