[Страдалецъ]

И нафига StringList?
И нафига BlockRead?

Код:

program Project35;
{$APPTYPE CONSOLE}

Var
   MyFile: Text;

function ReadTexBlock: String;
Var S: String;
begin
 Result := '';
 repeat
  ReadLn(MyFile, S);
 until not Eof(MyFile) and (S <> '');
 repeat
  Result := Result + S;
  ReadLn(MyFile, S);
 until not Eof(MyFile) and (S = '');
end;

begin
 AssignFile(MyFile, 'c:\Test.txt');
 Reset(MyFile);
 WriteLn(ReadTexBlock);
 WriteLn(ReadTexBlock);
 CloseFile(MyFile);
end.