Zeilen ohne gesuchten String aus Datei entfernen

[qb-tim]

Hi,

ich habe eine rießige Datei, rand-voll mit allen möglichen Informationen, von der ich nur Zeilen, in der ein bestimmter String enthalten ist, in eine neue Datei kopiere...

Bsp:
Originaldatei:

Delphi-Quellcode:

Name: Mustermann
Vorname: Max
Name: Irgendwer
Vorname: Inge
Name: Y
Vorname: X
...

Zu suchender String: (Groß- und Kleinschreibung soll beachtet werden!)
'Name:' Ausgabedatei:

Delphi-Quellcode:

Name: Mustermann
Name: Irgendwer
Name: Y
...

Wie kann ich das anstellen?

Delphi-Quellcode:

procedure PurgeFile(MyFile: String; PurgeID: String); // MyFile = Originaldatei; PurgeID = Zu suchender String
var file1, file2: textfile;
    s: String;
being
  AssignFile(file1, MyFile);
  AssignFile(file2, 'Purged.txt');
  Reset(file1);
  Rewrite(file2);
  while not EoF(file1) do
  begin
    ReadLn(file1, s);
    if s ?????? then               // Prüfen ob "PurgeID" in "s" vorhanden ist
      WriteLn(file2, s);
  end;
  CloseFile(file1);
  CloseFile(file2);
end;