anchor.diff:  
     if FImplementationPos.StartLine > -1 then
       FImpUses := GetInformationsFor('uses', True, FImplementationPos.StartLine, FFileContent.Count -1);
  +
  +  FHaveImplementationUses := FImpUses.StartLine > 0;
  +  FHaveInterfaceUses := FIntUsesPos.StartLine > 0;
   end;
   
   procedure TSourceFileEditor.ParseInformations;
  
positive.code: { TSourceFileEditor }
  
  procedure TSourceFileEditor.AddUsesToImplementation(UseUnit: string);
  begin
    WriteInformationAtPostion(FImpUses.EndLine, FImpUses.EndPos -1, UseUnit);
  end;
  
  procedure TSourceFileEditor.AddUsesToInterface(UseUnit: string);
  begin
    WriteInformationAtPostion(FIntUsesPos.EndLine, FIntUsesPos.EndPos -1, UseUnit);
  end;
  
  constructor TSourceFileEditor.Create(SourceEditor: IOTASourceEditor);
  
negative.code:   FileWriter := FSource.CreateUndoableWriter;
    try
      FileWriter.CopyTo(SetPosition);
      FileWriter.Insert(PAnsiChar(AnsiString(Information)));
    finally
      FileWriter := nil;
    end;
  