Проблема с потоком

[Aleksandr]

В потоке делаю чтобы выводилось сообщение через заданное время.
Время задаю в optionform.RzComboBox1.
При работе потока программа зависает.
Вот мой Unit потока

unit MyThread;
// С повтором

interface

uses
  Classes,WinSock,Windows,Messages,Dialogs,SysUtils;
type
IPINFO = record
Ttl :char;
Tos :char;
IPFlags :char;
OptSize :char;
Options :^char;
end;

type
ICMPECHO = record
Source :longint;
Status :longint;
RTTime :longint;
DataSize:Shortint;
Reserved:Shortint;
pData :^variant;
i_ipinfo:IPINFO;
end;

type
  TCountObj = class(TThread)
  private
    { Private declarations }
   
  protected
    procedure Execute; override;

  end;

implementation

uses Main,option;

function TimeToSecond(S: string): Integer;
var
 i: integer;
begin
 i:=StrToInt(trim(copy(S,1,2)))*3600+StrToInt(trim(copy(S,4,2)))*60;
 Result:=StrToInt(trim(copy(S,1,2)))*3600+StrToInt(trim(copy(S,4,2)))*60;
end;

 procedure Delay(ms : longint);
             var
               TheTime : LongInt;
             begin
               TheTime := GetTickCount + ms;
             end;

procedure TCountObj.Execute;
var
i:integer;
ATO:string;
begin

for i:=0 to 2 do
begin
ShowMessage('  Повтор')
end;
  case optionform.RzComboBox1.ItemIndex of
        0: ATO := IntToStr(3600);
        1: ATO := IntToStr(3600 * 3);
        2: ATO := IntToStr(3600 * 12);
        3: ATO := IntToStr(3600 * 24);
        4: ATO := IntToStr(3600 * 48);
        5: ATO := IntToStr(3600 * 24 * 7);
        6: ATO := IntToStr(3600 * 24 * 30);
        7: ATO := IntToStr(3600 * 24 * 365);
        8: ATO := IntToStr(TimeToSecond(optionform.RzMaskEdit1.Text));
      end;

Delay(10000*strtoint(ATO));
   if terminated then
    exit;
 end;
 end.

[evg_m]

http://programmersforum.ru/showpost....59&postcount=2 и далее по ссылкам