Variablen im Thread

[Fredyy]

also meine Form TForm1.FormCreate in Unit1 sieht so aus und die variablen hpstart,hpend,field und url möchte ich im Thread weiter verwenden.

Delphi-Quellcode:

  private
    Thread1 : TMyOwnThread;
  public
    filename,link,link2,hpstart,hpend,field,url :string;
    function Ready : Boolean;
  end;

.....

procedure TForm1.FormCreate(Sender: TObject);
begin

   hpstart := 'value="[URL=http://imageshack.us][IMG]';
   hpend   := '[/IMG][/URL]"/>';
   field   := 'fileupload';
   url     := 'http://load.imageshack.us/';
   filename := 'screenshot';
   OpenDialog1.Filter := 'Image File Types|*.jpg;*.jpeg;*.png;*.gif;*.bmp;*.tif;*.tiff';

   if(ParamCount > 0) then
       Upload(ParamStr(1))
end;

die execute Prozedur vom Thread so, der Thread wird erst erstellt, wenn er benötigt wird:

Delphi-Quellcode:

procedure TMyOwnThread.Execute;
var
   x,y: Integer;
   hpstart,hpend, page,link :string;
   Werte : TIdMultiPartFormDataStream;
begin

            Werte := TIdMultiPartFormDataStream.Create();
            HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
            Werte.AddFile(field, files, 'image/png');
            page := Http.Post(url, Werte);
            Werte.Destroy;
            x := pos(hpstart, page);
            y := pos(hpend, page);
            link := copy(page, x+length(hpstart), y-(x+length(hpstart)));


        if Assigned(OnThread) then
                OnThread(link);
end;

das Problem ist jetzt, dass der Thread die Variablen nicht erkennt.

Danke schon mal für eure Hilfe

mfg
fredyy