Das ist wohl eher Multimedia...
Wie schon gesagt, Rechtecke mit Rectangle oder die Linien dazwischen mit MoveTo; LineTo. Zahlen per TextOut. Das angeklickte Rechteck ermittelst du durch die Parameter X und Y von TImage- (bzw. TPaintbox) OnMouseDown. Bei einer Kästchenlänge von z.B. 20 Pixeln wäre x mod 20 die Nummer des Kästchens von links (Wie so oft beim Programieren mit 0 beginnend).
Ich kann aus deinem Post nicht wirklich auf deinen Wissensstand schließen, sollte es also Fragen geben, her damit
.