Windows API로 Slide 효과 주기

const
  ANIMATION_DELAY = 100;
begin
  if Memo1.Visible then begin 
    //Memo1을 슬라이드 효과로 사라지게 합니다.
    AnimateWindow(Memo1.Handle, ANIMATION_DELAY, AW_VER_NEGATIVE or AW_SLIDE or AW_HIDE);
    Memo1.Visible := False;
  end else begin
    //Memo1을 슬라이드 효과로 보이게 합니다.
    AnimateWindow(Memo1.Handle, ANIMATION_DELAY, AW_VER_POSITIVE or AW_SLIDE or AW_ACTIVATE);
    Memo1.Visible := True;
  end;
end;

참조 - https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-animatewindow