[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;