MyBlock := TDiagramBlock.Create(Self);
with MyBlock do
begin
  Name := 'MyblockName';
  Left := 10;
  Top := 10;
  Width := 150;
  Height := 50;
  Diagram := atDiagram1;
end;