1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure WriteTextAligned(Canvas: TCanvas; Rect: TRect; Alignment: TAlignment; Text: string);
var
  xPos, yPos: integer;
  
begin
xPos := Rect.Left + 2; // Standard verhalten
yPos := Rect.Top + 2; // Standard verhalten
with Canvas do
  begin
  //yPos := Rect.Top + ((Rect.Bottom - Rect.Top - TextHeight(Text)) div 2); // vertikal Zentriert
  case Alignment of // x-Position berechnen
    taRightJustify : // Breite von Rect - Länge Text - 2 = linker Abstand
      xPos := Rect.Left + (Rect.Right - Rect.Left - TextWidth(Text) - 2);
    taCenter : // Breite von (Rect - Länge Text - 2) durch 2 = linker Abstand
      xPos := Rect.Left + ((Rect.Right - Rect.Left - TextWidth(Text) - 2) div 2);
    end;
    TextRect(Rect, xPos, yPos, Text);
  end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if ACol in [1,3] then
  begin  // Spalte 1 und 3 zentriert
  WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taCenter, TStringGrid(Sender).Cells[Acol, ARow]);
  exit;
  end;
if ACol in [2,4] then
  begin // Spalte 2 und 4 rechtsbündig
  WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taRightJustify, TStringGrid(Sender).Cells[Acol, ARow]);
  exit;
  end;
// Alle anderen Spalten linksbündig
WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taLeftJustify, TStringGrid(Sender).Cells[Acol, ARow]);
end;					

1:
2:
3:
4:
5:

procedure TForm1.sg1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
sg1.Canvas.TextOut(100,100,'XXX');
end;					

1:

sg1.Canvas.TextOut(rect.left+2,rect.top+2,sg1.cells[acol,arow]);