1 procedure TForm1.FormCreate(Sender: TObject);
2 var
3   hr :thandle;
4 begin
5   hr:=createroundrectrgn(1,1,width-2,height-2,5,5);
6   setwindowrgn(handle,hr,true);
7 end;