Firemonkey SetParent

[Kenrai]

Hallo zusammen,

undzwar habe ich folgendes Problem....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
wnd2: HWND;
begin
    wnd2 := 0;
    wnd2 := Findwindow('CalcFrame', nil );
        SetWindowPos(wnd2, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOZORDER);
    if wnd2 <> 0 then begin
        windows.SetParent(wnd2, form1.panel1.Handle);
    end;
end;

Das ist der Code um ein Fenster (notepad) auf ein Panel zu werfen... Funktioniert einwandfrei in VCL, jedoch wollte ich das ganze dann in FireMonkey testen und da gings dann leider nicht, weil dort die Komponenten keine Handle haben
Es geht wenn man das Fenster auf die Form selber wirft, da werden dann aber bei Bewegung des Fensters einige Teile abgeschnitten oder Verschwinden, aber wenn ein anderes Programm ausgewählt wird, zeichnet sich das Fenster neu und alles passt wieder. Nun zu meiner Frage:
1. Ist es möglich durch ein paar tricksereien das Notepad innerhalb des Panels zu zeichnen?
2. Wie könnte man den "bug" optimieren, dass einige Teile abgeschnitten bzw nicht gezeichnet werden, wenn man notepad innerhalb von FireMonkey bewegt?

Su-Fu genutzt aber leider nichts passendes gefunden, falls jemand doch was hat einfach den Link posten

Vielen Dank im Voraus!

-Eugeene

-Edit-
Ups, in dem obrigem Beispiel war der Versuch mit dem Rechner von Windows.