[Northern]

Este código lo saqué de algún sitio pero ahora no me acuerdo

Código Delphi [-]
procedure TFormSplash.FormActivate(Sender: TObject);
var
  HRGN: LongWord;
begin
  Label1.Caption := Chr(169)+' Tus Credenciales u otro texto ';
  HRGN := CreateEllipticRgn(0, 0, FormSplash.Width-4, FormSplash.Height-6);
  //HRGN := CreateEllipticRgn(32, 0, FormSplash.Width-26, FormSplash.Height);
  SetWindowRgn(FormSplash.Handle, HRGN, True);
end;

espero que te sirva