Как создать форму в форме элипса?

procedure TForm1.FormCreate(Sender: TObject);
var
  Region: HRGN;
begin
  Region := CreateEllipticRgn(0, 0, 300, 300);
  SetWindowRgn(Handle, Region, True);
end;

Взято с Delphi Knowledge Base

линия по производству пакетов

попутчики в турцию и попутчица .

Дома из дерева под ключ - брусовые дома под ключ. Дома бани по доступным ценам.

---