unit Strgr;

interface

uses

 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

 Forms, Dialogs, Grids, StdCtrls, DB;

type

 TForm1 = class(TForm)

  StringGrid1: TStringGrid;

  procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;

  Rect: TRect; State: TGridDrawState);

 private

  { Private declarations }

 public

  { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint;

 Rect: TRect; State: TGridDrawState);

const

 CharOffset = 3;

begin

 with StringGrid1.canvas do

 begin

  font.color := clMaroon;

  textout(rect.left + CharOffset, rect.top + CharOffset, 'L');

  font.color := clNavy;

  textout(rect.left + CharOffset + TextWidth('L'),

  rect.top + CharOffset, 'loyd');

 end;

end;

end.