Переход на метку нажатием кнопки

[Макс84]

У меня есть текст программы:

procedure TForm1.Button5Click(Sender: TObject);
label M1;
begin
k:=0;
M1: Form2.Memo1.Lines.Add('X'+Edit1.Text+'Y'+Edit2.Text);
Inc(k);
n:=StrToInt(Edit4.Text);
If k<n then goto M1 else Button5.Enabled:=False;
end;

Как сделать, чтобы последующие переходы на метку осуществлялись только при нажатии кнопки Button5(программно)?

[mrandrey]

Метки использовать вообщето не правильно (гдето читал),
лучше так:

Procedure TForm1.proc;
begin
Form2.Memo1.Lines.Add('X'+Edit1.Text+'Y'+Edit2.Tex t);
Inc(k);
n:=StrToInt(Edit4.Text);
If k<n then proc
else Button5.Enabled:=False;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
k:=0;
proc;
end;

[Макс84]

У меня на:
else Button5.Enabled:=False; ругаеться, в процедурах proc прописал!!!

[Квэнди]

Текст ошибки.

[mrandrey]

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  procedure proc;  
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
Procedure TForm1.proc;
begin
beep;
If 1<0 then proc
else Button1.Enabled:=False;
end;

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

у меня вот так работает!!

[Трофимов Александр]

Сообщение от Макс84

У меня на:
else Button5.Enabled:=False; ругаеться, в процедурах proc прописал!!!

Это бывает, Delphi не может понять на уровне процедуры что за Button5, надо ему пояснить:
else Form1.Button5.Enabled:=False;

[Макс84]

Большое Спасибо за помощь!!!!!!!!!!!!