Delphiプログラミングについて

この内容ではいけないのでしょか？
また、代わりの方法なども教えていただけると嬉しいです

ボタン
ラベル
がフォーム１の上に１つずつあるだけです
お願いいたします




unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
{ Private 宣言 }
public
{ Public 宣言 }
end;

var
Form1: TForm1;
i:integer;
implementation

{$R *.dfm}

procedure hyouji;
begin
repeat
form1.label1.caption:= 'strike';
until i = 10;
end;


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (KEY = VK_RIGHT) then
i:=i+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
hyouji
end;

end.

No.1 回答者： nag0720 回答日時： 2012/11/16 02:04

いろいろ問題がありそうです。

iの初期値がない。
フォームにフォーカスが行かないのでFormKeyDownが実行されない。
hyoujiがループしているとき、キー入力やマウスクリックを受け付けられない。
label1.captionを設定してもループ中には表示されない。


＞また、代わりの方法なども教えていただけると嬉しいです

いったい何をやりたいんでしょうか？
それが分からないと代わりの方法といっても・・・・