Créer des fenêtres rondes

procedure TForm1.FormCreate(Sender:TObject);
var
region: HRgn;

begin
region:=CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;