[psih1]

Вот можт пригодится кому

program res;
 var 
 x,y:integer;
    res   : resource; 
    line  : string;
begin
  res := openResource('/obj.txt'); 

    if (resourceAvailable(res)) then 
      begin   
line := readLine(res);
x:=stringtointeger(copy(line,0,2));
y:=stringtointeger(copy(line,3,5));      
closeResource(res); 
      end; 
    
drawImage(loadImage('/icon.png'), x, y); 
repaint;    
delay(2000000);
end.