File löschen geht nicht

[Andidreas]

hi, versuch grad die ganze zeit ein file zu löschen, und ein anderes umzubennen...
bloss des geht irgendwie net... des eine file wird net gelöscht und des andere wird net umbenannt, die pfade stimmen aber alle....

hier mal der code:

Delphi-Quellcode:

procedure TMain_Form.prNewFile(sFile : String);

var
bl                            : Boolean;
i, iLen                       : Integer;
sPathC, sPathR, sRowC, sRowR  : String;
txtFileC, txtFileR            : TextFile;
strFile                       : TFileStream;

begin

  //Create second File for latching
  sPathC := Copy(sFile, 1, 35) + '_C.txt';
  Try
    strFile := TFileStream.Create(sPathC, fmCreate);
  Finally
    strFile.Free;
  End;

  {$I-}

  //Assign File for Input
  sPathR := sFile;
  AssignFile(txtFileR, sPathR);
  Reset(txtFileR);

  //Assign File for Output
  AssignFile(txtFileC, sPathC);
  Append(txtFileC);

  //Copy Record from Input File to Output File
  While Not EOF(txtFileR) Do
  Begin
    Readln(txtFileR, sRowR);
    sRowC := sRowR;

    //Clear Apostrophe
    i := fnPosI('"', sRowC, 1);
    While i <> 0 Do
    Begin
      iLen := Length(sRowC);
      i := fnPosI('"', sRowC, 1);
      If i  <> 0 Then
      Begin
        sRowC := Copy(sRowC, 1, i - 1) + Copy(sRowC, i + 1 , iLen);
      End;
    End;

    Writeln(txtFileC, sRowC);
  End;

  //Close File for Input and Output
  CloseFile(txtFileR);
  CloseFile(txtFileC);

  {$I+}
  bl := DeleteFile(sPathR);
  bl := RenameFile(sPathC, sPathR);


end;

sieht hier jemand im quelltext nen fehelr???