喫茶XRAY [Mr.XRAY掲示板]

何気なくふと気づいたのですが
ないげないコード

procedure TForm1.FormCreate(Sender: TObject);
begin
  with Self do
  begin
    ClientHeight := 253;
    ClientWidth := 458;
    Self.Position := poOwnerFormCenter;
  end;
  with StringGrid1 do
  begin
    DefaultDrawing := False;
    Align := alClient;
    ColCount := 7;
    RowCount := 10;
    FixedCols := 0;
    FixedRows := 0;
    DefaultRowHeight := 24;
    DefaultColWidth := 64;
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject;
    ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  BRect :TRect;
begin
  with (Sender as TStringGrid) do
  begin
    with Canvas do
    begin
      Pen.Color := clBlack;
      Pen.Width := 1;
      if ACol = 0 then
      begin
        Rect := CellRect(0,0);
        Rect.Top := CellRect(0,0).Top;
        Rect.Bottom := CellRect(0,RowCount-1).Bottom;
        FillRect(Rect);
        Rectangle(Rect.Left-1,Rect.Top-1,Rect.Right+1,Rect.Bottom+1);
      end else begin
        MoveTo(Rect.Left-1,Rect.Top);
        LineTo(Rect.Left-1,Rect.Bottom);
        MoveTo(Rect.Left,Rect.Bottom);
        LineTo(Rect.Right,Rect.Bottom);
        MoveTo(Rect.Right,Rect.Bottom);
        LineTo(Rect.Right,Rect.Top);
      end;
    end;
  end;
end;

左画像）まあ普通に罫線黒で表示されますね。
中画像）モニタ枠からはみ出すように右に隠し（左でも同じですが）
　　　　じわっと、フォームを引き戻します。
右画像）モニタ枠からはみ出すように画面下側に隠します。
　　　　同じくじわっと画面下側から引上げます。

早く引き戻したらダメですよ。
ほら罫線消えたでしょ！？

・・・う～む。