Проблема с ValueListEditor

[gusluk]

Кидаю на форму ValueListEditor и PaintBox. На событие MouseMove PaintBox-а пишу:

procedure TForm1.prmmove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
form1.ValueListEditor1.Strings.Values['x']:=inttostr(X);
form1.ValueListEditor1.Strings.Values['y']:=inttostr(Y);
end;

В итоге при перемещении мыши по PaintBox-у процессор грузится на 100% и ValueListEditor значения нормально не отображаются.
Как можно от этого избавиться?

[Stilet]

Проверил на Д6 - никакой 100% нет.
Значения отображаются, хоть и не совсем корректно

[gusluk]

Сообщение от Stilet

Значения отображаются, хоть и не совсем корректно

Значит эт не тока у меня такая проблема.
Процессор совсем не грузится?
У меня Д7.

[Stilet]

Процессор совсем не грузится?

Ну максимум на 0% )

Значит эт не тока у меня такая проблема.

Не стал разбираться в чем там затык, редко работаю с этим компонентом

[gusluk]

Я раньше с ним вообще не работал, видимо и не зря.
Придется табличку из Edit-ов мастерить.
Или может чего получше посоветуешь для отображения данных в таблицей?

[Stilet]

StringGrid - Рульная чтука.