Помогите с ValueListEditor

[Den3D]

Всем бодрого времени суток!!!
Я кинул на форму ValueListEditor1,заполнил поля, сделал одно поле выподающ. списком.
...
ValueListEditor1.ItemProps[0].EditStyle:=esPickList;
ValueListEditor1.ItemProps[0].PickList.Add('1');
...
Дальше мне надо сделать 2,3,...,5 полей с тремя точками ( Ellipsis)
Создаем два поля
...
ValueListEditor1.ItemProps[3].EditStyle:=esEllipsis;
ValueListEditor1.ItemProps[4].EditStyle:=esEllipsis;
...
и в обработчиге событий пишем

procedure TForm2.ValueListEditor1EditButtonCl ick(Sender: TObject);
begin

//Label1.Caption:=ValueListEditor1.Ke ys[4];
if ValueListEditor1.Keys[4]='Иконка'
then Label1.Caption:='p1';

if ValueListEditor1.Keys[5]='Цвет формы'
then Label1.Caption:='p2';
end;

При нажати на кнопку любого поля выполняется последние действие, т.е в даном случае в Label1.Caption:='p2'. Что мне делать?????? Зарание благодарен!!!!!
...
Вопрос в следующем

[soleil@mmc]

ну так может нужно проверять именно Sender-а?

[Den3D]

Все с этой проблемой я справился. Но возникла другая : Как закрасить ячейку выбранного поля в красный цвет.