A SetWindowRgn eljárás segítségével csinálhatod meg, azonban ez előtt még létre kell hoznod egy
Region objektumot, aminek olyan az alakja, amilyet szeretnél. Ez tartalmazhat téglalapot, kört és
ellipszist, illetve ezeknek a kombinációját. Javallott, hogy a Form.BorderStyle-t állítsd bsNone-ra.
Példa egy kör alakú ablak létrehozására:

procedure TForm1.FormCreate(Sender: TObject);
var
hR: THandle;
begin
{Legyen ugyanolyan széles az objektumunk, mint amilyen magas}
width:=height;
{Hozzuk létre a Region-t}
hR := CreateEllipticRgn(0,0,Width+1,Height+1);
{Állítsuk be az ablak alakját}
SetWindowRgn(Handle,hR,True);
end;