How To Make Rounded Windows

Create a different form in your application...

 

procedure TForm1.FormCreate(Sender:TObject);  
var  
  region: HRgn;  
begin  
  region:=CreateEllipticRgn(1,1,200,200);  
  SetWindowRgn(handle, region, true);  
end;