Threading algorithm - room for optimization

I have a threading algorithm and would like to optimize it's performance a bit
currently I use two hash lists for lookups
it works quite well but I believe there's room for optimization .. and don't really have time for it :)

the slowest part in the test project is the treeview - would've used mike's VTV but not everybody has it
simple benching is already done inthe project ..
below is the code for the algorithm
the complete test project is here:
http://leenover.homeip.net/isapi/pas2html.dll/pas2html?File=/delphi/Threadable/
(zip file for everything)


this is the threading method I'd like optimized:

function Threaden(const AThreadables: IThreadables): Integer;
var I, Tmp, Idx: Integer;
    MsgSH, IRTSH: TStringHash;
    LRoot, LItem: IThreadable;
begin
     Result:=AThreadables.Count;
     MsgSH:=TStringHash.Create(Result);
     IRTSH:=TStringHash.Create(Result);
     CreateThreadable.GetInterface(IThreadable, LRoot);
     try
        for I:=0 to Result-1 do
            with AThreadables.Item[I] do
            begin
              MsgSH.Add(ID, I);
              // pogledam, ce smo komu parent
              // check if we're a parent to a msg
              Idx:=IRTSH.ValueOf(ID);
              if Idx > -1 then
              begin
                // LItem je nasa navidezna referenca
                // LItem is our temp reference
                LItem:=LRoot.Items.Item[Idx];
                for Tmp:=0 to LItem.Items.Count-1 do
                begin
                  LItem.Items.Item[Tmp].Parent:=AThreadables.Item[I];
                  // dodamo sporocila katerim smo 'parent'
                  // add the messages we're a parent to
                  Items.Add(LItem.Items.Item[Tmp]);
                  LItem.Items.Item[Tmp]:=nil;
                end;
              end;

              // handle InReplyTo
              if ParentID <> '' then
              begin
                // poiscemo 'parent' sporocilo
                // search for the parent msg
                Idx:=MsgSH.ValueOf(ParentID);
                // ce ga najdemo potem 'parentu' dodamo trenutno sporocilo
                // if we find it then we add the current msg to it
                if Idx > -1 then
                begin
                  AThreadables.Item[I].Parent:=AThreadables.Item[Idx];
                  AThreadables.Item[Idx].Items.Add(AThreadables.Item[I]);
                end
                else
                begin
                  // ce ne najdemo parenta potem dodamo v seznam iskanih
                  // if we don't find the parent then we add it to the list

                  // prvo poiscemo, ce ze nekdo isce istega parenta
                  // first check if something is already searching for our parent
                  Idx:=IRTSH.ValueOf(ParentID);
                  if Idx > -1 then
                  begin
                    LItem:=LRoot.Items.Item[Idx];
                  end
                  else
                  begin
                    // ce se noben ne isce tega parent potem ga dodamo
                    // .. if not then we add the parent for searching
                    LItem:=LRoot.Items.Add;
                    LItem.ID:=ParentID;
                    IRTSH.Add(ParentID, LRoot.Items.Count-1);
                  end;
                  LItem.Items.Add(AThreadables.Item[I]);
                end;
              end;
            end;

        for I:=Result-1 downto 0 do
           with AThreadables.Item[I] do
             if Assigned(Parent) then
             begin
               AThreadables.Remove(I);
             end;
     finally
        MsgSH.Free;
        IRTSH.Free;
        LRoot:=nil;
     end;
end;