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;