Nejprve tedy změna

tvaru okna. Stačí, když do události OnCreate příslušného okna přidáte následující kód:
procedure TForm1.FormCreate(Sender: TObject);
var
region: HRgn;
begin
region:=CreateEllipticRgn(1, 1, 500, 200);
SetWindowRgn(handle, region, true);
end;
Parametry funkce CreateEllipticRgn si již upravte sami podle potřeby, mírnému experimentování se pravděpodobně nevyhnete.