procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
const 
  abstand = 3; 
  wievielRot = 2; 
var 
  s: string; 
  links, oben: integer; 
begin 
  with StringGrid1 do begin 
    if cells[acol, arow] = '' then exit; 
    links := rect.left + abstand; 
    oben := rect.top + abstand; 
    s := copy(cells[acol, arow], 1, wievielrot); 
    with canvas do begin 
      font.color := clred; 
      textout(links, oben, s); 
      font.color := clNavy; 
      textout(links + textwidth(s), oben, 
        copy(cells[acol, arow], wievielrot + 1, length(cells[acol, arow]) - wievielrot)); 
    end; 
  end; 
end;