Ich hab' hier mal ein Code-Stückchen. Ich hatte das ganze im OnMouseDown vom DrawGrid, brauchst dir die Infos nur noch raussammeln...
Delphi-Quellcode:
case FieldArray[ACol + 1, ARow + 1] of
1: begin
with DrawGrid.Canvas do
begin
Pen.Style := psClear;
Brush.Style := bsSolid;
Brush.Color := clTeal;
FillRect(Rect);
end;
end;
end;