Skrbefelter i Delphi, som på et skrabelod - HVORDAN?

Hvad med en stringgrid og et array med samme størrelse som din grid som indeholder dine bogstaver.
Efterhånden som du klikker på felterne i grid'en overfører du bogstaverne fra dit array.
Det burde være ret simpelt at lave

>>michael-schou
Er det grafikken bag du skal programmere, eller er det bare funktionen bag et skrabelod der skal virke?

Det er selve skrabe effekten jeg vil have et eksempel på ;)

const
  x = 5;
  y = 4;

var
  bogst: array[1..x,1..y] of char;

procedure TForm1.FormCreate(Sender: TObject);
var
  i,j: integer;
begin
  Stringgrid1.colcount := x;
  Stringgrid1.rowcount := y;
  Stringgrid1.fixedrows := 0;
  Stringgrid1.fixedcols := 0;
  Randomize;
  for i := 1 to x do
    for j := 1 to y do
      bogst[i,j] := chr(random(25)+65);
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;
  var CanSelect: Boolean);
begin
  Stringgrid1.Cells[col,row] := bogst[col,row];
end;

Ups, du skal bruge følgende i stringgridselectcell:

  Stringgrid1.Cells[col,row] := bogst[col+1,row+1];

da col og row går fra 0