procedure Delete;

This example deletes first shape from the shape collection on sheet one.

with Workbook.Sheets[1] do begin
  if Shapes.Count > 0 then Shapes.Items[1].Delete;
end;