Eliptik Form Oluşturmak

procedure TForm1.FormCreate(Sender: TObject); var region: HRgn; begin { koselerden 25 pixel keser } region:=CreateRoundRectRgn(1, 1, 484, 312, 25, 25); SetWindowRgn(handle, region, true); end;