Не работатет onkeypress.

[vedro-compota]

Доброго времени ))
Чтобы остановить анимацию я использую нажатие на клавишу "1" для этого создаю обработчик события onkeypress для формы в котором значиться-

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key in ['1'] then  m:=0;

end;

но когда жму на 1 картинка продолжает изменяться и программа остаётся всё так же зацикленной . m - это глобальная переменная ,если больше нуля - выполняем анимацию - если меньше, по-идее, должна остановиться....но не хочет.-
вот весь код-

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  m:integer;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var q,a,b,x0,y0,n,dx,dy,f,i:integer;
  horda: real;
  mv: array [0..7,0..1] of integer;
begin
  Canvas.Brush.Style := bsClear;
  m:=1;
  f:=0;
 while m>0 do
  begin
    self.Repaint;
    canvas.Pen.Width:= 15;
    form1.canvas.Ellipse(150,150,250,250);
    form1.canvas.Ellipse(195,195,205,205);
    canvas.Pen.Width:= 7;
    form1.Canvas.MoveTo(200,200);
    q:=0;
    for i := 0 to 7 do
    {присваиваем концам спиц ,
     которые прилегают к ободу колеса
     ,учитывая смещение ,новые координаты}
    begin
      mv[i,0]:=Round(50*cos((q+f)*pi/180))+200;
      mv[i,1]:=Round(50*sin((q+f)*pi/180))+200;
      q:=q+45;
    end;
    f:=f+5;  // увеличиваем угол смещения спиц на 10 градусов
    if f>=360 then  f:=0;
    for i:= 0 to 7 do
    begin
      form1.Canvas.MoveTo(200,200);
      form1.Canvas.LineTo(mv[i,0],mv[i,1]); // рисуем спицы и рычаг.
      if i=0 then
      begin
        canvas.Pen.Width:= 10;
        form1.Canvas.MoveTo(mv[i,0],mv[i,1]);
        form1.Canvas.LineTo(mv[i,0]-400,mv[i,1]);
        form1.canvas.Ellipse(mv[i,0]-3,mv[i,1]-3,mv[i,0]+3,mv[i,1]+3);
        canvas.Pen.Width:= 7;
      end;
    end;
    Sleep(10);   // задержка
  end;


end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key in ['1'] then  m:=0;

end;

end.

Пожалуйста, скажите в чём ошибка. (прикрепляю архив с "проектом")

[Пепел Феникса]

вставьте Application.ProcessMessages в тело цикла(ну в конце цикла например)

[vedro-compota]

теперь так-

procedure TForm1.Button1Click(Sender: TObject);
var q,a,b,x0,y0,n,dx,dy,f,i:integer;
  horda: real;
  mv: array [0..7,0..1] of integer;
begin
  Canvas.Brush.Style := bsClear;
  m:=1;
  f:=0;
 while m>0 do
  begin
    self.Repaint;
    canvas.Pen.Width:= 15;
    form1.canvas.Ellipse(150,150,250,250);
    form1.canvas.Ellipse(195,195,205,205);
    canvas.Pen.Width:= 7;
    form1.Canvas.MoveTo(200,200);
    q:=0;
    for i := 0 to 7 do
    {присваиваем концам спиц ,
     которые прилегают к ободу колеса
     ,учитывая смещение ,новые координаты}
    begin
      mv[i,0]:=Round(50*cos((q+f)*pi/180))+200;
      mv[i,1]:=Round(50*sin((q+f)*pi/180))+200;
      q:=q+45;
    end;
    f:=f+5;  // увеличиваем угол смещения спиц на 10 градусов
    if f>=360 then  f:=0;
    for i:= 0 to 7 do
    begin
      form1.Canvas.MoveTo(200,200);
      form1.Canvas.LineTo(mv[i,0],mv[i,1]); // рисуем спицы и рычаг.
      if i=0 then
      begin
        canvas.Pen.Width:= 10;
        form1.Canvas.MoveTo(mv[i,0],mv[i,1]);
        form1.Canvas.LineTo(mv[i,0]-400,mv[i,1]);
        form1.canvas.Ellipse(mv[i,0]-3,mv[i,1]-3,mv[i,0]+3,mv[i,1]+3);
        canvas.Pen.Width:= 7;
      end;
    end;
    Sleep(10);   // задержка
    Application.ProcessMessages;
  end;

но не работатет. даже "завершение процесса " не работатет теперь - пришлось диспетчер задач вызывать....

[Пепел Феникса]

KeyPreview у формы в true стоит?
(я не учел что у вас кнопка еще на форме)

[vedro-compota]

Установил )) теперь всё работает )) Пепел Феникса, выручил )) спасибо ))