2024年4月21日发(作者:)

end;

procedure 1Timer(Sender: TObject);

begin

close;

end;

end.

/```