[Richik]

Пользовался стандартными способами

procedure LoadRes(namefile: string);
var s, temp: string;
    res: resource;
    i: integer;
begin

  if loadfile=false then begin
    s:='';
    res:=OpenResource(namefile+'.txt');        
    repeat
      temp:=ReadLine(res);
      if temp='###' then break;          
      s:=s + StrToUtf8(temp) + chr(10);      
    until false;        
    CloseResource(res);    
    ShowForm;
    i:=FormAddString(s);    
    loadfile:=true;    
    addCom;
  end;
end;

Пробовал сделать через библиотеку

procedure LoadRes(namefile: string);
Var	s, temp: string;
		i: integer;    
begin
  if loadfile=false then begin 
    s:=LoadText(namefile+'.txt');
	  ShowForm;
	  i:=FormAddString(s);
    loadfile:=true;    
    addCom;
  end;    
end;

Результат одинаков