Программа для задержки нажатия кнопки

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Winuser.h"
 
int up = 0;
int down = 0;
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//UP
 if (up>0)
{
        up--;
        Panel1->Color = 0x0080FF80;
}else
        Panel1->Color = 0;
 
if(GetAsyncKeyState(VK_UP)!=0)
{
        Panel1->Color = 0x0080FF80;
        up = StrToInt(Edit1->Text);
}else
        if (up == 0)
                Panel1->Color = 0;
//------------------------------------------
//DOWN
 if (down>0)
{
        down--;
        Panel2->Color = 0x0080FF80;
}else
        Panel2->Color = 0;
 
if(GetAsyncKeyState(VK_DOWN)!=0)
{
        Panel2->Color = 0x0080FF80;
        down = StrToInt(Edit2->Text);
}else
        if (down == 0)
                Panel2->Color = 0;
//-------------------------------------------
//LEFT
if(GetAsyncKeyState(VK_LEFT)!=0)
        Panel3->Color = 0x0080FF80;
else
        Panel3->Color = 0;
//-------------------------------------------
//RIGHT
if(GetAsyncKeyState(VK_RIGHT)!=0)
        Panel4->Color = 0x0080FF80;
else
        Panel4->Color = 0;
 
 
//---------------------------------------------------------------------------
 };