Долгое действие при нажатии

[Dimon]

У меня если например нажимаешь и держиш эту кнопку то выполняется действие. Отпускаешь-перестает. Как можно сделать так, чтобы нажал на кнопку- и действие выполнялось, пока я не нажал другую кнопку?
ПРобывал

if key = GA_FIRE then
repeat
действие
until (key = GA_FIRE);

ну тогда когда держу кнопку-действие идёт, отпускаю заканчивается. А мне нужно чтоб было всегда пока не нажму на кнопку.

[odd]

Установи просто флаговую переменную. Типа так.

var loop: boolean;

loop:=false;
if key = GA_FIRE then loop := true;
while (loop) do
begin
// что-то делаем
key:=GetKeyPressed;
if key = GA_FIRE then loop:=false;
end; 


[Dimon]

oDD те спс, А еще нужно: Чтоб если НАЖАЛ НА КНОПКУ ТО ДЕЙСТВИЕ СОВЕРШАЕТСЯ БЕскОНЕЧНО ПОКА НЕ НАЖМЕШ ЕЩЕ кнопку. НАПРИМЕР МНЕ НУЖНО ЧТОБ ПРИ НАЖАТИИ НА 0 ВЫСКАКИВАЛИ ЧАСЫ с сЕКУНДАМИ. И чтоб секунды и минуты и часы, всё время обновлялось каждую секунду, пока не нажмёш на 0 опять.

у меня есть

if (getKeyPressed = KE_KEY0) then
begin
Cls2;
Time:=GetCurrentTime;
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_MEDIUM);
SetColor(0, 0, 0); wi:=GetWidth; hi:=GetHeight;
TimeText := 'Время - ' + GetHour(Time);
TimeText := TimeText + ':'+ GetMinute(Time);
TimeText := TimeText + ':'+ GetSecond(Time);
DrawText(TimeText,(wi-GetStringWidth(TimeText))/2, 9;
Repaint;
end;

Как мне добавить такую вещь???

[im_zorg]

if (getKeyPressed = KE_KEY0) then
repeat
Cls2;
Time:=GetCurrentTime;
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_MEDIUM);
SetColor(0, 0, 0); wi:=GetWidth; hi:=GetHeight;
TimeText := 'Время - ' + GetHour(Time);
TimeText := TimeText + ':'+ GetMinute(Time);
TimeText := TimeText + ':'+ GetSecond(Time);
DrawText(TimeText,(wi-GetStringWidth(TimeText))/2, 9;
Repaint;
until getKeyPressed<>KE_NONE;