repeticion de código pulsando un TButton.

[elcaracas]

Lo he probado en Builder y funciona, aunque solo he utilizado:

bool apretado;
void __fastcall TForm1::Button2MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
apretado=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
apretado =!apretado;
// Mientras el botón esté "pulsado"...
while (apretado)
{
Memo1->Lines->Add("a");
Application->ProcessMessages();
}
}

Muchas Gracias otra vez