Opět se jedná o událost OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
var
f: HRGN;
begin
f := CreateRoundRectRgn(0, 0, clientwidth, clientheight, 40, 40);
SetWindowRgn(Handle,f,True);
end;
Poslední dva parametry funkce CreateRoundRectRgn nás zajímají nejvíce, protože určují výšku a šířku elipsy (či kruhu), která tvoří rohy okna. Opět se vyplatí experimentovat, než si definitivně zvolíte dané parametry.