[delphi7] bloccare clico for in esecuzione

[Tonino9191]

eccolo posto la parte interessata

begin
edit1.text:=copy(edit1.text,1,length(edit1.text)-1);
for i:= 1 to spinedit1.Value do
 if stop=edit1.Text then

begin
application.ProcessMessages;