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

// Datei in einen String laden
  var
    Datei: TFileStream;
    Inhalt: String;
begin
  Datei := TFileStream.Create('C:\Test.txt',fmOpenRead or fmShareDenyWrite);
  try
    SetLength(Inhalt,Datei.Size);
    Datei.Read(PChar(Inhalt)^,Datei.Size);
  finally
    Datei.Free;
  end;

// Teil ersetzen
StringReplace(Inhalt,'%PLATZHALTER%','Neuer Wert',[rfIgnoreCase]);