ファイルの先頭行を取得する関数を作りたいのですが、
下記の方法よりも速く処理する方法はありませんか？

function TForm1.LoadText(FileName:String):String;
var
F:TextFile;
S:String;
begin
AssignFile(FileName);
Reset(F);
Readln(F,S);
CloseFile(F);
Result:=S;
end;