Zbývá nám zařídit,

aby šlo okno uchopit za libovolnou část. Tedy za libovolnou část podkladu, pochopitelně nelze uchopit okno např. za tlačítko. Opět k tomu využijeme zpráv systému a donutíme Windows "myslet si", že klikáme na titulkový pruh. Vlastní kód vypadá takto:
public
{ Public declarations }
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;


procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then M.Result := htCaption;
end;