Не удается связать поток+idHttp+прогресс бар

[grafgrial]

Перепробывал множество способов для синхронизации поток+idHttp+прогресс бар, но так ничего и не вышло. Могли бы вы показать работающий способ, только не сложный.

Посмотрите что неправильно??? HttpThread.rar

[grafgrial]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdMultipartFormData, ComCtrls, Gauges,
  IdAntiFreezeBase, IdAntiFreeze;
    const
  MY_MESS = WM_USER + 100;
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    lst2: TListBox;
    lst3: TListBox;
    pb: TProgressBar;
    Gauge1: TGauge;
    IdAntiFreeze1: TIdAntiFreeze;
    Edit1: TEdit;
    procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCount: Integer);
    procedure IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
      const AWorkCountMax: Integer);
    procedure IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   procedure MyProgress(var msg:TMessage);message MY_MESS;

    { Public declarations }
  end;

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

  var
  Form1: TForm1;

implementation

{$R *.dfm}

 procedure thed.Execute;
var
formData: TIdMultiPartFormDataStream;
g,s:string;
begin
formdata:=TIdMultiPartFormDataStream.Create;
try
Form1.idHTTP1 := TIdHTTP.Create(nil);
formData.AddFile('upfile','2.jpg','application/octet-stream');
formdata.AddFormField('password', '13');
formdata.AddFormField('softupload', 'yes');
formdata.AddFormField('filename', '2.jpg');
formdata.AddFormField('keep-days', '1');
s:=form1.idHTTP1.Post('http://...../upload',formData); //отправялем пост запрос, в ответ придет string. его в s

if pos('<a href="',s)>0 then
begin
Delete(s,1,Pos('<a href="',s)+8);
while pos('">',s)>0 do begin
Delete(s,Pos('">',s),length(s));end;
Form1.lst2.Items.Add('http://.....ru'+s);
end
else
begin
while pos(': http',s)>0 do begin
Delete(s,1,Pos(': http',s)+1);end;
g:=s;
Form1.lst3.Items.Add(s);
while pos('/delete',g)>0 do begin
Delete(g,Pos('/delete',g),length(g));end;
Form1.lst2.Items.Add(g);
end;
finally
Form1.Idhttp1.Free;
end;
end;


procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  pb.Position := AWorkCount;
   PostMessage(Application.MainForm.Handle, MY_MESS, 1, AWorkCount);
 Application.ProcessMessages;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
pb.Position := 0;
  pb.Max := AWorkcountMax;
   PostMessage(Application.MainForm.Handle, MY_MESS, 0, AWorkCountMax);

end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
pb.Position := 0;
end;

procedure TForm1.MyProgress(var msg: TMessage);
begin
case msg.WParam of
  0: begin
      Gauge1.MaxValue := msg.LParam;
      Gauge1.Progress := 0;
     end;
  1: Gauge1.Progress := msg.LParam;
 end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
thed.Create(false);
end;

end.