var
myForm:TForm2;
HwndOld:HWND;
begin
HwndOld := 0;
HwndOld:=FindWindow('Progman',nil);
if HwndOld<>0 then
begin
myForm :=TForm2.CreateParented(HwndOld);
myForm.Show;
end;
end;

不过还是有问题的，我记得之前做了个时钟有问题，一直没解决，现在也忘了是什么问题。