tem como Apagar apenas uma linha de um arquivo texto????

var SL: TStringList;
begin
  SL := TStringList.Create;
  try
    SL.LoadFromFile(´c:\lixo.txt´);
    SL.Delete(0); // deleta a primeira linha
    SL.SaveTofile(´c:\lixo.txt´);
  finally
    SL.Free;
 end;

 
var
   i: integer;
   strLst: TStringList;
const
   Arquivo = 'C:\Arquivo.txt';   
begin
      strLst := TStringList.Create;
      try
         strLst.LoadFromFile(Arquivo);
         strlst.BeginUpdate;
         for i := strLst.Count - 1 downto 0 do
         begin  
            if Copy(strLst.Strings[i], 1, 3) = 'ABC' then
               strLst.Delete(i);
         end;
         strlst.EndUpdate;
         strLst.SaveToFile(Arquivo);
      finally
         FreeAndNil(strLst);
      end;
end;