Einfache Frage zu einer Schleife

[xman]

Delphi-Quellcode:

var FPressed:Boolean=False;



Button1.OnClick

if fPressed then
showmessage('xxxxx');

fPressed:=True;