if FS.Size > 0 then begin
 SetLength(S, FS.Size);
 FS.Read(S[1], FS.Size);