text in dll finden und ersetzen?

[Pseudemys Nelsoni]

ich hab das jetztmal so versucht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: File;
  s: string;
  ww: string;
  wu: string;
  i: integer;
begin
  ww := 'blaaa';
  wu := 'hallo';
  s := ww;
  AssignFile(f, pfad);
  reset(f);
  for i := 0 to FileSize(f) - Length(ww)-1 do
  begin
    Seek(f, i);
    BlockRead(f, ww[1], Length(ww));
    if ww = s then
      BlockWrite(f, wu[1], Length(wu));
    Application.ProcessMessages;
  end;
  CloseFile(f);
end;

testweise in einer textdatei, in dieser steht "blaaa" wird aber nicht durch "hallo" ersetzt, ist da ein fehler?