[ART]

Возможно, что то типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
 h := FindWindow('Shell_TrayWnd','');
 windows.SetParent(Button1.Handle,h);
 Button1.left:= 50;
end;