Прикрутить к функции таймер

[JustKurt]

Снова добрый день, и еще один вопрос - как прикрутить к функции таймер? необходимо, чтобы по истечению заданного времени, если результат функции не получился положительный, то есть True, То результат должен принять значение False.

function scandev :boolean;
begin
result:=false;
application.ProcessMessages ;
  BB5SOC(DevString);
Repeat
    Application.ProcessMessages   ;
    sleep(50);
  until (BB5SOC(DevString) = True);
  sleep(50);
  Result:=True;
  _msg('Connection OK!');
 end;

С процедурой все понятно, но мне надо эту функцию использовать сотни раз в приложении....

Мой код тупо ждет пока результат будет положительный, то есть устройства подццепят к компу...

[Stilet]

Пардон не понял а зачем?

[JustKurt]

Stilet, это нужно для того, чтобы отменять операцию.
В общем если объяснить просто картина такая -

Функция - это повторяющееся действие поиска и открытия порта устройста - телефона.

Пока телефон не подключен - она работает.
Получается такая картина - у юзера проблемы с коннектом - телефон, например, занят программой другой, и нажимая кнопку, которпая имеет отношение к коннекту с телефоном он получает строчки -

Action: Read product code
Show All Codes enabled...
Init usb communication...

Эта история + еле заметное подвисание ( это не имеет подвисание значения) может продолжаться час, два, пока телефон не найдется программой...

Добавить таймер к функции и сделать таймаут, скажем, в 20 секунд - и в результате отсутствия коннекта операция отменяется, и юзер получает сообщение - проверьте драйвера, соединение и прочее...

Обработчик события по кнопке -

  if scandev = true then
     begin
       StatusBar.Panels.Items[3].Text :='Phone Found! Do some operations...';
....................
end
else begin
    _msg('');
    _msg('Error! Check connection, driver, e.t.c');
    StatusBar.Panels.Items[3].Text :='ERR: code:0';
    USBClosePort;
end;

[Stilet]

Не ну смотри: У тебя в цикле Application.ProcessMessages ;
Значит ты можешь прикрутить кнопку, по клику которой в False будет выставляться некая переменная. А в самом цикле проверяй

until BB5SOC(DevString) or (not  переменная)

[JustKurt]

Кнопку- может можно сделать общую кнопку, по клику которой, текущая операция будет отменяться?) (ну хотябы на две операции) )
А так - Хотел бы таймер вкрутить =(

[Stilet]

Хотел бы таймер вкрутить

Ну а таймер то для чего? Перед repeat устанавливай result:=false
А в repeat проверяй если кнопка не была нажата и BB5SOC(DevString)=Труе то Result:=True;

[JustKurt]

Я хотел бы, чтобы в функции как только она начинает выполняться - запускался таймер, и пока таймер не кончился - повторялась попытка коннекта, если время кончилось - то функция вбы выдавала на выход результат False.
Вот что мне нужно)
Кнопки лишние крутить - их там итак море получается =/

[Stilet]

Хм... Тогда так: перед циклом запоминаешь текущее время, а в цикле проверяешь если текущее время больше запомненного на $%^дцать секунд то выйти с False

[Impuls1989]

Кидаете на форму таймер. Свойство Timer.enabled:=false;
Теперь в программе по нажатию на что-нибудь, запускайте таймер.
Timer.Enabled:=true;
А в самом обработчике таймера пишите:
Timer.Enabled:=not scandev;