From 05620b271debce0aced38264f258bfb8fb4bf5fb Mon Sep 17 00:00:00 2001
From: Michael VAN CANNEYT <mvancanneyt@tixeo.com>
Date: Fri, 6 Jan 2023 11:08:03 +0100
Subject: [PATCH] * string -> shortstring

---
 rtl/palmos/syspara.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/palmos/syspara.inc b/rtl/palmos/syspara.inc
index 448b59c747..6aa2c6d902 100644
--- a/rtl/palmos/syspara.inc
+++ b/rtl/palmos/syspara.inc
@@ -32,9 +32,9 @@ begin
 end;
 
 { argument number l }
-function ParamStr(l: LongInt): string;
+function ParamStr(l: LongInt): Shortstring;
 var
-  s1: string;
+  s1: shortstring;
 begin
   ParamStr := '';
   if (l > 0) and (l + 1 <= argc) then