∧,,∧　おそなったけど、サンクスコ。
　ミ,,ﾟДﾟ彡　モナユーティルスのファイルから文字列直読み関数
　ﾐつ[|lllll］). 　を使ったよ。
〜ﾐ　　ﾐ
　 Ｕ''Ｕ 　ﾌﾕﾊｻﾑｲﾈ

function FindFile(const FileName: String): TSearchRec;
begin
　if FindFirst(FileName, faAnyFile, Result) = 0 then
　　FindClose(Result)
　else
　　raise Exception.Create(FileName+'の情報の取得に失敗しました。');
end;


function LoadStringFromFile(const FileName: String): String;
var
　size: Integer;
　F: File;
begin
　size := FindFile(FileName).Size;
　if size = 0 then
　begin
　　Result := '';
　　Exit;
　end;

　SetLength(Result, size);
　AssignFile(F, FileName);
　Reset(F, size);
　try
　　BlockRead(F, PChar(Result)^, 1);
　finally
　　CloseFile(F);
　end;
end;