String suchen und in Datei schreiben

[DF.A]

Hallo,
ich untersuche grade eine Datei auf Strings mit bestimmten Bedingungen. Das heißt wenn ein String mit dieser Bedingung vorkommt soll er in eine neue Datei geschrieben werden. Die Datei wird zwar erstellt, allerdings wird nie was in diese Datei geschrieben obwohl ich mir ganz sicher bin, dass der String vorkommen müsste und also auch in die neue Datei geschrieben werden müsste. Ich mache das folgendermaßen.

Delphi-Quellcode:

var
  F: TextFile;            
  D: TextFile;
  s: string;
  sTestString : string;
  poserg : integer;
  
begin
  if not FileExists(sFileName) then begin
    MessageDlg('Die Quelldatei ist nicht vorhanden!', mtError, [mbOk],0);
    EXIT;
  end;

  AssignFile(D, sSaveName); //auf diesen Dateinamen zum Speichern beziehen 
  ReWrite(D);  //erstellt und öffnet die Datei zum Schreiben

  AssignFile(F,sFileName); 
  Reset(F);  
  
  while not (EOF(F))  do begin
    ReadLn(F, s);
    sTestString := copy(s,iDetailRangeStart,iDetailRangeLength); //iDetailRangeStart = Startposition, iDetailRangeLength = count
    poserg := pos(sDetailRangeText,sTestString);
    if poserg <> 0 then begin
       writeLn(D, sTestString);
    end;
  end;  
  CloseFile(D);
end;

hat jemand ne idee was ich falsch mache oder was ich vergessen habe? wäre schön wenn mir jemand helfen könnte.
mfg DF.A