Доброго дня.
Есть задача вывести консольное окно в определенный TabSheet компонента PageControl.
Выводе окна каждый раз происходит с новыми координатами ( окно пляшет на форме ).
В чем ошибка?

Код.
Сперва консоль.
procedure TForm1.FormShow(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'c:\Windows\System32\cmd.exe', nil, nil, SW_SHOWNORMAL);
end;

Вывод окна.
hMain:= FindWindow(nil, PChar('c:\windows\system32\cmd.exe'));

if hMain<>0 then
begin 
windows.GetClientRect(hMain, r); 
FrameX:= GetSystemMetrics(SM_CXDLGFRAME);
FrameY:= GetSystemMetrics(SM_CYDLGFRAME);
CaptionH:= GetSystemMetrics(SM_CYCAPTION);
rg:= CreateRectRgn(
r.Left + FrameX +2, r.Top + CaptionH + FrameY + 1,
r.Right + FrameX*2, r.Bottom + CaptionH*2 - FrameY*4 - 1);
SetWindowRgn(hMain, rg, True);
windows.SetParent(hMain, Form1.PageControl1.ActivePage.Handle); 
end;
end;

Что это такое ??