じゃあ、
・まず if 文中が長スギ一つだけならいいけど、 else も書くなら　関数に別けてる方がいい。

・グリッド内に四角書くために　TShape置いて動かすのはどうかな？
　　どうせ直線描くなら Canvasで描いたらどう？

・ iPalCol　 / iPalRow / iBaseX / iBaseY とかは　とりあえずレコード型にしなさい。
　その後でクラスにする事。

・文字出力をマウス移動につれてするならチラツキが出ないように工夫する事。