Не работает таймер и оптимизация кода

[Айдар]

Здравствуйте, помогите оптимизировать код.

Алгоритм.
1 Авторизация (запилил в FormCreate)
2. Получаем список
3. Добавляем
4 Удаляем

  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

var
  Form1: TForm1;
   enter:tstringlist;
   cod,idtask:string;
   s:integer;


implementation

{$R *.dfm}

function Pars (T_, ForS, _T: string): string;
var
 a, b: integer;
begin
 Result := '';
 if (T_ = '') or (ForS = '') or (_T = '') then
 Exit;
 a := Pos (T_, ForS);
 if a = 0 then
 Exit
 else
 a := a + Length (T_);
 ForS := Copy (ForS, a, Length (ForS) - a + 1);
 b := Pos (_T, ForS);
 if b > 0 then
 Result := Copy (ForS, 1, b - 1);
end;




constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
TNewThread.create(false);
end;


procedure TNewThread.Execute;
var
i:integer;
idsid:string;
begin

//фильтрация списка в 50 заказов
enter.Add('search_words=');
enter.Add('onPage=50');
enter.Add('sort=date');
enter.Add('order=desc');
enter.Add('filter=8');
enter.Add('date=0');
enter.Add('level=-2');
enter.Add('status=0');
enter.Add('price_from=');
enter.Add('price_to=');
enter.Add('size_from=');
enter.Add('size_to=');
enter.Add('folder=0');
enter.Add('deadline_from=');
enter.Add('deadline_to=');
enter.Add('autorate=');
enter.Add('search=1');
enter.Add('name_search_filter=');
cod:=form1.IdHTTP1.Post('ххх',enter);
enter.Clear;
idsid:= pars ('chat.php?sid=',cod,''+#39);

//form1.timer1.Interval:=36000;
//form1.Timer1.Enabled:=true;

//получаем список заказов, по идеи все что ниже должны выполняться с интервалом в 5 минут, но у меня таймер не срабатывал

form1.Memo2.Lines.Clear;
while  pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)>0 do
begin
idtask:= Copy(cod, pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)-43, 7);
form1.Memo2.Lines.Add(idtask);
delete (cod,pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod),10);
end;


//тут копируем и удаляем заказы

enter.Add('deadline=02.12.2014');
enter.Add('timeline=10:00');
for I := 0 to form1.memo2.Lines.Count-1 do
begin
form1.IdHTTP1.Post('ххх'+form1.memo2.Lines[i], enter);
form1.IdHTTP1.get('ххх'+form1.memo2.Lines[i]);
end;
end;






procedure TForm1.FormCreate(Sender: TObject);
begin

enter:=tstringlist.create;
enter.Add('login=');
enter.Add('x=26');
enter.Add('y=30');
enter.Add('password=');
cod:=form1.IdHTTP1.Post('ххх',enter);
enter.Clear;
if pos ('ххх',cod)>0 then
label1.caption:='Вошли' else
exit;
cod:='';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
form1.Memo2.Lines.Clear;
while  pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)>0 do
begin
idtask:= Copy(cod, pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)-43, 7);
form1.Memo2.Lines.Add(idtask);
delete (cod,pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod),10);
end;


enter.Add('deadline=02.12.2014');
enter.Add('timeline=10:00');
for I := 0 to form1.memo2.Lines.Count-1 do
begin
form1.IdHTTP1.Post('ххх'+form1.memo2.Lines[i], enter);
form1.IdHTTP1.get('ххх'+form1.memo2.Lines[i]);
end;

end;

end.

memo заменю на tstringlist,

вот этот блок бы оптимизировать, тут идет парсинг справа на лево, сам не смог(

while  pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)>0 do
begin
idtask:= Copy(cod, pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod)-43, 7);
form1.Memo2.Lines.Add(idtask);
delete (cod,pos ('Перейти на комментарии">Комментарии и заявки</a> (0)',cod),10);
end;

и самое главное, таймер не срабатывает

[Arigato]

Как минимум, pos 3 раза от одного и того же вычислять крайне не рационально. В переменную результат сохраняй и с ней работай.

[Айдар]

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

Как минимум, pos 3 раза от одного и того же вычислять крайне не рационально. В переменную результат сохраняй и с ней работай.

а не подскажите, почему у меня таймер не срабатывает?

[Halogen]

Сообщение от Айдар

а не подскажите, почему у меня таймер не срабатывает?

Имхо жми F7 в компиляторе, сам увидишь

[Человек_Борща]

а не подскажите, почему у меня таймер не срабатывает?

Потому что мат. часть по синхронизации не выучена. Нельзя обращаться к компонентам и классам и другим формам из потока, без синхронизации.

Таймер не работает потому что поток к моменту срабатывания уже умер, либо в cod передан мусор. Все.

[Айдар]

Сообщение от Человек_Борща

Потому что мат. часть по синхронизации не выучена. Нельзя обращаться к компонентам и классам и другим формам из потока, без синхронизации.

Таймер не работает потому что поток к моменту срабатывания уже умер, либо в cod передан мусор. Все.

в cod мусора нету, вот с синхронизацией не сильно знаком, подсказать на моем примере можете?