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: 
    if FImplementationPos.StartLine > -1 then
      FImpUses := GetInformationsFor('uses', True, FImplementationPos.StartLine, FFileContent.Count -1);
  end;
  
  procedure TSourceFileEditor.ParseInformations;
  
negative.code: { TSourceFileEditor }
  
  procedure TSourceFileEditor.AddUsesToImplementation(UseUnit: string);
  var
    PosChar: Integer;
    Line: Integer;
  begin
    Line := FImpUses.EndLine;
    PosChar := FImpUses.EndPos -1;
    if not FHaveImplementationUses then
    begin
      Line := FImplementationPos.StartLine + 1;
      PosChar := 0;
  
      UseUnit := #13#10 + 'uses' + #13#10 + #9 + UseUnit + ';' + #13#10
    end
    else
      UseUnit := ', ' + UseUnit;
  
    WriteInformationAtPostion(Line, PosChar, UseUnit);
  end;
  
  procedure TSourceFileEditor.AddUsesToInterface(UseUnit: string);
  var
    Line: Integer;
    PosChar: Integer;
  begin
    Line := FIntUsesPos.EndLine;
    PosChar := FIntUsesPos.EndPos -1;
    if not FHaveInterfaceUses then
    begin
      Line := FInterfacePos.StartLine + 1;
      PosChar := 0;
  
      UseUnit := #13#10 + 'uses' + #13#10 + #9 + UseUnit + ';' + #13#10
    end
    else
      UseUnit := ', ' + UseUnit;
  
    WriteInformationAtPostion(Line, PosChar, UseUnit);
  end;
  
  constructor TSourceFileEditor.Create(SourceEditor: IOTASourceEditor);
  