procedure TForm9.FormDestroy(Sender: TObject);
begin try
pgBuffer.free;
except end;End;