Stringgride renkli metin

[korendon1971]

Önceden öğrenmek istediğim stringgrid hücrelerine renkli metin eklemeyi
forumda buna benzeyen bir örnekle gidermeye çalıştım.Sizinle bunu paylaşmak istedim.Başka yöntem varmı bilmiyorum.Birde hücre içindeki metinin tek bir harfinin renginin değiştirilmesini düşünmedim.Ama size bir danışayım dedim acaba kolayca değiştirilebilirmi?Teşekkürler..........

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (acol=0)and(arow=0) then
begin
StringGrid1.Canvas.Font.Color := ClYellow;
StringGrid1.Canvas.Pen.Color := ClYellow;
StringGrid1.Canvas.TextOut(5 , 5,'DELPHİ');
end;
if (acol=1)and(arow=0) then
begin
StringGrid1.Canvas.Font.Color := clgreen;
StringGrid1.Canvas.Pen.Color := Clgreen;
StringGrid1.Canvas.TextOut(5 , 5 , 'TÜRKİYEYE');
end;
if (acol=2)and(arow=0) then
begin
StringGrid1.Canvas.Font.Color := clblue;
StringGrid1.Canvas.Pen.Color := Clblue;
StringGrid1.Canvas.TextOut(5 , 5 , 'TEŞEKKÜRLER');
end;


end;