rysowanie planszy z tablicy 2-wymiarowej

mam taki mały problem
mamy tablice 2-wymiarową nazwijmy ją p wpisujemy do niej wartości, i w zależ ności od wpisanej wartości chce aby delphi narysowało coś w danym polu np jeśli p[4,7]= 6 to ma to być kwadrat , a jeśli 5 powiedzmy kułko, lub jeśli 0 to zostawia puste pole. nie bardzo wiem jak się za to zabrać

Podstawy, podstawy, podstawy...

Kliknij tu: Delphi , a następnie wyszukaj i przeczytaj hasła: case oraz przeczytaj 9 rozdział Kompendium: Rozdział 9

wiem jak uŻyć case ale nadal nie wiem jak zrobić aby z tej tablicy narysowało mi dokładnie to co chce. czyli kwadratowe pole w którym niektóre mniesze kwadraciki są zamalowane na dany kolor ,a inne są puste . caość chce zrobić w aplikacji

przeczytaj 9 rozdział Kompendium: Rozdział 9

type TTablica = array[0..9,0..9] of byte;
const Pole=32;
var
  Form1: TForm1;
  i,x,y:byte;
  Tablica:TTablica;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
for Y:=1 to high(Tablica) do
for X:=1 to high(Tablica) do
  begin


    Case Tablica[x,y] of

    0: begin
     Canvas.Brush.Color:=clred;
     Canvas.Rectangle(X*Pole,Y*Pole,X*Pole+31,Y*Pole+31);
    Canvas.Textout(X*Pole+16,Y*Pole+6,'0');
      end;

    6: begin
     Canvas.Brush.Color:=clBlue;
     Canvas.Rectangle(X*Pole,Y*Pole,X*Pole+31,Y*Pole+31);
     Canvas.Textout(X*Pole+16,Y*Pole+6,'X');
      end;
    end;
  end;
end;