1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.FormCreate(Sender: TObject);
begin
  activeControl := Stringgrid1;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s     : String;
    aRect : TRect;
begin
  s := StringGrid1.Cells[ACol, ARow];
  aRect := Rect;
  StringGrid1.canvas.brush.color:=clWhite;
  StringGrid1.canvas.fillrect(rect);
  dec(rect.right,8);
  inc(rect.Top,4);
  DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_Right);  
  StringGrid1.canvas.DrawFocusRect(aRect);
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9'] then
    begin
    StringGrid1.Cells[0,0] := StringGrid1.Cells[0,0]+Key;
    key := #0;
    end
    else
      key := #0;
end;