Нужно узнать время между нажатиями на клавишу и удержаия

[smalsvoloch]

В общем требуется узнать время удержания клавиши и время между нажатиями... Я на форму кинул кнопку, фокус кинул на эту кнопку...
пишу так
button1.keydown
d1:=now

button1.keyup
d2:=now;
t:=millisecondsbetween(d2,d1);
showmessage(inttostr(t));

ну разумеется синтаксис языка соблюдаю... дык вот, если я жму пробел кратковременно, то выдает 48, если удерживаю подольше, то выдает 6... если кратковременно жамкаю энтер, то выдает 1312.... кароче нето....

как можно засечь время удержания клавиши, и время между нажатиями.... желательно клавишу использовать пробел..... кто что может подсказать..... можно в виде функции реализовать...

[raxp]

у вас есть ошибка по измерению после отжатия... но имхо, для адекватного (правильного) измерения лучше ставить защелку:

var
  t: integer;
  p: boolean;


procedure Tform1.WMKeyUp(var msg: TWMKeyUp);
begin
 inherited;
 if (msg.CharCode=32 {ваш пробел})and(p) then begin caption:= inttostr(GetTickCount-t); p:= false end
end;
procedure Tform1.WMKeyDown(var msg: TWMKeyDown);
begin
 inherited;
 if (msg.CharCode=32)and(not p) then begin p:= true; t:= GetTickCount end
end;

...не забудьте события назначить в секции private скажем

    procedure WMKeyUp(var msg:TWMKeyUp);message WM_KEYUP;
    procedure WMKeyDown(var msg:TWMKeyDown);message WM_KEYDOWN;

[smalsvoloch]

raxp спасибо большое)