procedure RecupParam; var Param1, Param2: String; begin Param1 := ParamStr(1); Param2 := ParamStr(2); end;