学步园

procedure TForm1.FormShow(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Brush.Style:=bsclear;
end;