請教各位先進: 如何將Handle存入TStringList內? 又如何還原為Handle型態呢?

//將Handle存入TStringList Strings.AddObject('TEST1',TObject(Handle1));    //還原為Handle型態 handle1:=Strings.Objects[0] as THandle;    問題..希望不是最後才發生！建議一次問完！

//還原為Handle型態 handle1:=Strings.Objects[0] as THandle; 上述的handle1應宣告為何種型態呢? 因為會出現 Operator not applicable to this operand type的錯誤訊息 煩請再指導!!

try it...

var strings:Tstrings;
    handle1:thandle;
begin
  strings := tstringlist.create;      Strings.AddObject('TEST1',TObject(edit1));      handle1:=TWinControl(Strings.Objects[0]).Handle;      windows.setfocus(handle1);      strings.free;
end;    

because ... function AddObject(const S: string; AObject: TObject): Integer; virtual;

引言: //還原為Handle型態 handle1:=Strings.Objects[0] as THandle; 上述的handle1應宣告為何種型態呢? 因為會出現 Operator not applicable to this operand type的錯誤訊息 煩請再指導!!

//還原為Handle型態 handle1:=THandle(Strings.Objects[0] );        問題..希望不是最後才發生！建議一次問完！

感謝二位先進的指導, 經測試後,flyup先進所提供的方法可完成小弟的問題. 而huwk先進所提供的方法,無法適用我的問題(釋放Package), 應該是我未能提供完整問題所致,向huwk先進說聲sorry.