procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
  R: TRect;
begin
  R := StringGrid1.CellRect(StringGrid1.Col, StringGrid1.Row);
  Form1.Color := StringGrid1.Canvas.Pixels[R.Left + 1, R.Top + 1];
end;