1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

AssignFile(Datei,PFAD);
AssignFile(Neu,PFAD2);
Reset(Datei); // var Datei : File
Rewrite(Neu); // var Neu : Text
line := '';  // String
While not EoF(Datei) do
begin
BlockRead(Datei,ch,1);
If (Integer(ch) = $0D) then
    begin
    Writeln(Neu, line);
    line := '';
    end
else
    begin
    line := line + ch;
    end;					

1:
2:
3:
4:

memo1.Lines.LoadFromFile('Datei.txt');
for i := 1 to Length(Memo1.Text) do 
  if  ord(Memo1.Text[i] = $0D then
    Memo1.Text := copy(Memo1.Text,1,i) + #10#13 + copy(Memo1.Text,i+2,length(memo1.Text)-i+2); //ungefähr sollte das von den Zahlen her passen ;)