if ((key=vk_right) and (ssShift in Shift)) then
begin
itemp:=chart1.Serieslist.Count;
if itemp=1 then exit;
x1:=trunc(chart1.SeriesList[itemp-1].XValues[0]);
chart1.SeriesList[itemp-1].Clear;
chart1.SeriesList[itemp-1].AddXY(x1+1,0,'',clblue);
my:=chart1.SeriesList[0].MaxYValue;
chart1.SeriesList[itemp-1].AddXY(x1+1,my,'',clblue);
end;

я тут последнюю серию двигаю при нажатом shift+стрелка
у чарта нет событий кейпрес и т д
поэтому повесила на form.keypress
двигается серия нормально, но вместе с ней двигается и курсор в едит или ползунок или мемо, что есть на форме

как избавиться от этого?