[Kobelev]

Оо, всем спасибо за помощь=) кнопку в TEdit мне не нужно. Я сделаю просто автозаполнение при вводе данных.

Использовал код lmikle, свойство в компоненте появилось, потом были проблемки с редактированием этого свойства. При двойном щелчке по свойству появлялась ошибка 'Cannot assign a nil to a TRichEditStrings'. погуглил нашел ответ. Вот начало кода, что получилось, вроде работает правильно.

Код:

type
  TMyComboBox = class(TEdit)
  private
    { Private declarations }
    FLines: TStringList;
    function GetLines: TStrings;
    procedure SetLines(Value: TStrings);
  protected
    { Protected declarations }
  public
    { Public declarations }
...
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  property Lines: TStrings read GetLines write SetLines;
  end;
procedure Register;

implementation

constructor TMyComboBox.Create(AOwner: TComponent); 
begin
 inherited Create(AOwner);
 FLines:=TStringList.Create;
end;

function TMyComboBox.GetLines : TStrings;
begin
  Result:=FLines As TStrings;
end;

procedure TMyComboBox.SetLines(Value:TStrings);
begin
  FLines.assign(value);
end;