el codigo la saque de la sección de trucos, donde muestran cómo crear formularios con diferentes formas:
procedure TForm1.FormCreate(Sender: TObject);
var
hRgn: THandle;
begin
// Crear una zona eliptica
hRgn := CreateEllipticRgn(10, 10, Width - 20, Height - 20);
// poner la nueva region
SetWindowRgn(Handle, hRgn, False);
end;
cuando compilo me dice el error que te envié en el mensaje anterior
saludos