[leon2009]

Когда передаешь Pchar -> Китайские иероглифы в мемо.
если возможность почистить блок? в моем случае.

Код:

function LoadFile(const FileName: TFileName):String; stdcall;
var
  MemStr: TStringStream;
begin
  MemStr:= TStringStream.Create;
  try
    MemStr.LoadFromFile(FileName);
    MemStr.Seek(0, soFromBeginning);
    if MemStr.Size >= 262144 then Result := MemStr.DataString
    else Result:='File_Size_Error '+inttostr(MemStr.Size);
    finally
    MemStr.Free;
  end;
end;

или выделять небольшие блоки, только я столкнулся, если файл большой, то можно сходить за кофе