Проблема с "ValueListEditor"

[KyTuH]

Доброго времени суток)) На форме стоит компонент ValueListEditor1(Изображение находится ниже).
Необходимо, чтобы при нажатии мышкой на любую строку компонента, он выводил фамилию и имя в Label1. Будем создавать 2 процедуры: "TForm1.ValueListEditor1MouseLe ave" и "TForm1.ValueListEditor1SelectC ell"
Как я понимаю, во 2ой процедуре мы будем отхватывать значение, которое я выделил, а в 1ой процедуре(при нажатии мышью) будем записывать выбранное значение в Label1.
Пробовал сам сделать - ни черта не получается.

[Аватар]

А если перемещение клавиатурное - не считается? Варианты

procedure TForm1.ValueListEditor1Click(Sender: TObject);
begin
  Label1.Caption:=ValueListEditor1.Cells[1,ValueListEditor1.Row];
end;

procedure TForm1.ValueListEditor1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption:=ValueListEditor1.Cells[1,ValueListEditor1.Row];
end;

[KyTuH]

Все работает! Можно закрыть тему!)