procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  fAlertaMsn: TForm;  // <- Aqui você pode definir um form pernolanizado.
  BarraIniciar: HWND; { Barra Iniciar }
  tmAltura: Integer;
  tmRect: TRect;
  xTop: Integer;
  xIniTop: Integer;
begin
  // localiza o Handle da janela iniciar
  BarraIniciar := FindWindow('Shell_TrayWnd', nil);
 
  // Pega o "retângulo" que envolve a barra e sua altura
  GetWindowRect(BarraIniciar, tmRect);
 
  tmAltura := tmRect.Bottom - tmRect.Top;
  fAlertaMsn := TForm.Create(Self);
 
  with fAlertaMsn do
  begin
    Left := Screen.Width - ClientWidth;
    if tmRect.Top = -2 then
      tmAltura := 30;
 
    // Pega o top final
    xTop := Screen.Height - ClientHeight - tmAltura;
 
    // Pega o top inicial
    xIniTop := Screen.Height + ClientHeight + tmAltura;
    Top := xIniTop;
 
    for I := xIniTop downto xTop do
    begin
      Top := Top - 1;
      Show;
      Update;
      Application.ProcessMessages;
      Sleep(1);
    end;
 
    Sleep(2000);
 
    for I := xTop to xIniTop do
    begin
      Top := Top + 1;
      Show;
      Update;
      Application.ProcessMessages;
      Sleep(1);
    end;
 
    Close;
    FreeAndNil(fAlertaMsn);
  end;
end;