iranboy_bahram@yahoo.com

procedure TForm1.Button1Click(Sender: TObject);
begin

Form2.BringToFront;

AnimateWindow(Form2.Handle,3000,AW_BLEND);

Form2.Show;

end;