[PassCall]

Начет ресурсов могу подсказать 2 вещи:
1. Всегда сать в конце ресурса (доплнительно) пустую строчку, иначе при прочтении виснет.
2. Если используеш MidletPascal второй версии, и тебе хочеться читать из ресурса русские символы, держи:

Function Decoder(Deco:string):string;//превращение кракозябр в русские буквы
            var
            ch:char;
            ds:string;
            d_temp:integer;
            _i:integer;

            begin
                ds:='';
                for _i:=1 to length(Deco) do
                begin
                ch:=getchar(deco,(_i-1));
                d_temp:=ord(ch);
                if d_temp>122 then ds:=ds+chr(d_temp+1104) else ds:=ds+getchar(deco,_i-1)
                end;
            decoder:=ds;
            end;