Повторение действий до нажатия кнопки

[Tukzar]

Нужен код чтоб когда нажал на кнопку он выполнял одно и тоже действие столько раз пока ещо ненажмеш на етожу кнопку!!!

[MaxNik2009]

var
  Flag: boolean = fasle; // флаг для того  запуска процедуры
...................................
procedure НажатеНаКнопку(Sender: TObject);
begin
  flag:= not flag;
  
  while flag do
  begin
     // выполняем что то нужное
     Application.ProcessMessages; // обязательно укажи эту строку
  end;
end;

[Tukzar]

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
idSmtp1.Host:='smtp.yandex.ru';
idSmtp1.Port:=25;
idSmtp1.Username:=Edit3.Text;
idSmtp1.Password:=Edit4.Text;
idMessage1.Body.Text:=Memo1.Text;
idMessage1.From.Text:=Edit1.Text;
idMessage1.Recipients.EMailAddresses:=Edit2.Text;
idMessage1.Subject:='Тема';

idSmtp1.Connect();
if idSmtp1.Connected=true then
idSmtp1.Send(idmessage1);
idSmtp1.Disconnect
end;

end.

чото нисмог вставить!

Flag: boolean = fasle; // флаг для того запуска процедуры
Тут пишет ошибку!

[MaxNik2009]

Flag: boolean = fasle; // флаг для того запуска процедуры
Тут пишет ошибку!

так должно работать:

Flag: boolean = false; // моя ошибка, писал этот код без delphi

[Stilet]

чото нисмог вставить!

Что русский язык у детей пепси-колы не в моде?
Никак я не могу понять зачем тебе повторять твой код до посинения? Он никоим образом не меняет ни адреса, отсюда я делаю вывод что ты пишешь спамбота, а по моему мнению это не лучше вируса. Если не пояснишь свои намерения достаточно ясно - тему закрою.