If system.ParamCount > 0 Then
  Begin
    filename := system.paramstr(1);
    OpenFile(filename);
  End;