А разве не проще будет использовать либу Lib_approp??
Допустим вот так:
var key, JarSize : string;
begin
key := 'MIDlet-Jar-Size';
JarSize := approp.get_property(key);
drawText(JarSize, 0, 0);
repaint;
delay(3000);
end.
Я бы таким способом воспользовался