[IVenoMI]

Во первых:

Поменяй на

 
 
while getKeyClicked <> KE_KEY9  do 
begin
    delay(1);
end;

Во вторых:

Лейблов в МП нет...