>>508
エラーの原因は
Createで まだ作ってないインスタンスのメンバ（プロパティ）に代入しようとしてるから

それと、そのやり方だと 古いblockはどうなるの？
単にどんどん作りたいなら
　with TKsBlock.Create(MainForm) do begin
　　Parent := MainForm;
　　OnMouseDown := KsBlockMouseDown;
　　Left:= 100;
　　Top:= 100;
　　Width :=100;
　　Height:= 100;
　end;
beep;

とすればいいし、別の仕様ならそれなりに考えて