anchor.diff:    FileWriter := FSource.CreateUndoableWriter;
     try
       FileWriter.CopyTo(SetPosition);
  -    FileWriter.Insert(PAnsiChar(AnsiString(', ' +Information)));
  +    FileWriter.Insert(PAnsiChar(AnsiString(Information)));
     finally
       FileWriter := nil;
     end;
  
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: 
    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;
  