[Code]

function GetMyParam(PName:String):String;

var

  CmdLine : String;

  CmdLineLen : Integer;

  i : Integer;

begin

    CmdLineLen:=ParamCount();

    for i:=0 to CmdLineLen do

    begin

    CmdLine:=ParamStr(i);

    if CmdLine= PName then

      begin

          CmdLine:=ParamStr(i+1);

          Result := CmdLine;

          Exit;

      end;

    end;

end;