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

var s: String;
    newChar, oldChar: Char;
begin
 daten := TStringList.Create;
 oldChar := 'b'; // altes Zeichen
 newChar := 'h'; // neues Zeichen
 try
  daten.LoadFromFile('test.dat'); // Datei laden
  s := daten.Text; 
  repeat // solange ...
   INSERT(newChar, s, POS(oldChar, s)); // newChar direkt vor oldChar einfügen
   DELETE(s, POS(oldChar, s), 1); // und oldChar löschen
  until POS(oldChar, s) = 0; // ...bis oldChar nicht mehr vorhanden ist.

   daten.Text := s;
  daten.SaveToFile('test.dat'); // Datei speichern 
 finally
  daten.Free;
  end;
end;					

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

  var
    DatFile: String;
    FileStream: TFileStream;
    i: Integer;
begin
  // Datei binär öffnen
  FileStream := TFileStream.Create('C:\boot.ini',fmOpenRead or fmShareDenyWrite);
  try // versuchen...
    SetLength(DatFile,FileStream.Size); // Platz für die Datei im Speicher machen
    FileStream.Read(PChar(DatFile)^,Length(DatFile)); // Daten lesen
  finally // ...und auf jeden Fall ausführen:
    FileStream.Free; // Datei schließen
  end;
  for i := 1 to Length(DatFile) do // über alle Zeichen in der Datei
    if (DatFile[i] = 'b') then // wenn es ein 'b' ist
      DatFile[i] := 'h'; // durch 'h' ersetzen
  Memo1.Text := DatFile; // und dann dem Memo zuweisen