Zellen im StringGrid mit einem Fadenkreuz markieren

//Procedure im OnDrawCell des Grid aufrufen
procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  //Fadenkreuz erzeugen
  DrawReticle(Grid, ACol, ARow, Rect, clWindow, clNavy, clWindowText,
  clInfoBk, clWindowText, clWindow);
end;