anchor.diff:  
   function TfpgAbstractEditCombo.HasText: boolean;
   begin
  -  Result := FocusItem > 0;
  +  Result := FFocusItem > 0;
   end;
   
   procedure TfpgAbstractEditCombo.DoDropDown;
  
positive.code:     FSelOffset := 0;
    end;
  
    if consumed then
      RePaint;
  
    if hasChanged then
  
negative.code:         else
          begin
            FSelectedItem := -1;
            for i := 0 to FItems.Count - 1 do
            begin
              if SameText(UTF8Copy(FItems.Strings[i], 1, UTF8Length(FText)), FText) then
  