* string -> shortstring

rtl/win/syswin.inc

@@ -376,7 +376,7 @@ begin
   Result:=AnsiString(ParamStrU(l));
 end;
 
-Function ParamStr(l:Longint): string;
+Function ParamStr(l:Longint): shortstring;
 begin
   if (l >= 0) and (l < argc) then
     Result:=argv[l]

rtl/win16/system.pp

@@ -435,7 +435,7 @@ begin
 end;
 
 
-function paramstr(l : longint) : string;
+function paramstr(l : longint) : shortstring;
 begin
   if argv=nil then
     setup_arguments;

rtl/wince/system.pp

@@ -746,7 +746,7 @@ begin
   paramcount := argc - 1;
 end;
 
-function paramstr(l : longint) : string;
+function paramstr(l : longint) : shortstring;
 begin
   setup_arguments;
   if (l>=0) and (l<Fargc) then