Delphi根据当前时间求得上个月的第一天和最后一天

procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);