[Djeka(c)]

Timer->Enabled=true; //вкл

Timer->Enabled=false//выкл

вот не знаю как на кнопку поставить???

включу Timer->Enabled=true; //вкл, поставлю interval:=????? а как сделать чтоб он повторял это всё бесконечное количество раз??

[toNN]

для события onTimer
Timer1.Enabled:=true;
<операторы>

[Djeka(c)]

Сообщение от toNN

для события onTimer
Timer1.Enabled:=true;
<операторы>

братух помоги с кодом не понимаю

[toNN]

сформулируй задачу, что конкретно тебе надо написать

[Djeka(c)]

Мне нужно сделать на кнопке таймер 11 секунд, чтоб после 11 секунд из edit любого отправлялось смс , потом опять остановка 11 секунд из edit смс ,и так бесконечно пока не остановиш сам это.. вот такое мне нужно )))

[roamer]

Как вариант:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Timer1.Interval:=11000;
end;

//Событие таймера: Отправка по таймеру
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=false;
  if TextSend then begin
     edtTEXT.Text:='';
  end
  else begin
     if length(trim(edtTEXT.Text))>0 then begin
         Timer1.Enabled:=true;
     end;
  end;
end;

//Отправить SMS
procedure TForm1.btn_SENDClick(Sender: TObject);
begin
  if TextSend then begin
     edtTEXT.Text:=''; //если сообщение отправлено
  end
  else begin
     if length(trim(edtTEXT.Text))>0 then begin
        Timer1.Enabled:=true; //если сообщение НЕ отправлено сразу, то по таймеру
     end;
  end;
end;

//Остановить отправку SMS (по таймеру)
procedure TForm1.btn_STOPClick(Sender: TObject);
begin
  Timer1.Enabled:=false;
end;

//Отправка SMS
function TextSend : boolean;
begin
  Result:=false;
  if length(trim(edtTEXT.Text))>0 then begin
     if ... then begin
        Result:=true;
        ...
        ...
        //edtTEXT.Text:='';
     end;
  end;
end;