Datei laden, speichern -> ergibt nicht die gleiche Datei ??

[benst]

Eigentlich möchte ich ein kleines Tool programmieren, welches Umlaute in einer HTML-Datei ersetzt. Dazu habe ich folgendermaßen angefangen... und das mal getestet.

Delphi-Quellcode:

procedure UmlauteErsetzen(FileName: String);
var
source, target: system.text;
s: string;
begin
{$i-}
Assignfile(source,FileName);
Reset(source);
if IOResult=0 then
  begin
  Assignfile(target,FileName+'neu');
  Rewrite(target);
  if IOResult=0 then
    begin
    while not eof(source) do
      begin
      readln(source,s);
      //Umlaute ersetzen (fehlt noch)
      writeln(target,s);
      end;
    closefile(source);
    end else MessageDlg('Konnte nicht speichern.', mtError, [mbOK],0);
  closefile(target);
  end else MessageDlg('Konnte Datei ('+FileName+') nicht öffnen.', mtError, [mbOK],0);
{$i+}
//Datei ersetzen (fehlt noch)
end;

Wenn ich eine Datei da durchjage, kommt nur leider nicht die gleiche Datei hinten wieder heraus. Die Dateigröße ist minimal anders und die MD5 Prüfsumme passt auch nicht.
Woran liegt das? Wie kann ich das ändern?
Gruß
Ben