[cyberdyne]

Здраствуйте вот код

program sms; 
Uses resloader;  
const 
num='00000000'; 
pref='халоу пиплы'; 
filik='data.txt'; 
  var  
      res   : resource;  
      nomer : integer;  
      id2,id,text : string;  
      logo1 : image; 
      logo  : image; 
   
procedure error; 
begin 
    SetColor(0, 0, 0); 
    FillRect(0, 0, GetWidth, GetHeight);  
    DrawImage(logo, GetWidth/2-66,GetHeight/2-80); 
    SetColor(255, 0, 0); 
    DrawText('ОШИБКА!!!', (GetWidth - getStringWidth('ОШИБКА!!!'))/2, GetHeight-50); 
    repaint; 
     delay(300); 
      
end; 

begin  

  logo:= LoadImage('/logo.png');   
  OpenRes(filik); 
     
   
     id := resloader.ReadLine; 
     CloseRes;  
  
     id2:=resloader.win2utf(id); 
    text:=pref+' '+id2;  
    SetColor(0, 0, 0); 
    FillRect(0, 0, GetWidth, GetHeight);  
    DrawImage(logo, GetWidth/2-66,GetHeight/2-80); 

    repaint; 
    delay(100); 
     

    if not smsStartSend('sms://'+num, text) then error;  
    
    while smsIsSending do // ждём, пока сообщение не будет отправлено  
      delay(100);  

    if not smsWasSuccessfull then error; // проверяем, успешно ли было отправлено сообщение  
     
    delay(200); 

  end. 


на нокии n79 выдает ошибку out of memory , вот эту строку(id := resloader.ReadLine; ) убираю и все вроди норм робит, что самое странное на более слабоим телефоне работает норм