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

Не уверен что это то что вы хотите, но видимо так:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes, Dialogs;
Var
  SL: TStringList;
begin
 SL := TStringList.Create;
 SL.LoadFromFile('c:\1\test.txt');
 SL.Text := StringReplace(SL.Text,#32,#13,[rfReplaceAll]);
 ShowMessage(IntToStr(SL.Count));
 SL.Free;
end.