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:
37:

procedure TForm1.SG_x_DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);
  procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect; const Text: string; Format: Word);
  const  DX = 2;
         DY = 2;
  var S     : array[0..255] of Char;
  begin
    with Stringgrid, ACanvas, ARect do
    begin
      case Format of
        DT_LEFT: ExtTextOut(Handle, Left + DX, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil);

        DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
            Length(Text), nil);

        DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div 2,
            Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,
            StrPCopy(S, Text), Length(Text), nil);
      end;
    end;
  end;

  procedure Display(StringGrid: TStringGrid; const S: string; Alignment: TAlignment);
  const Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
  begin
    WriteText(StringGrid, StringGrid.Canvas, Rect, S, Formats[Alignment]);
  end;

begin
  if ACol = tntstringgrid1.ColCount-1 then  // in [0..2] then  // hier meine Frage!!
    Display(tntStringGrid1, tntStringGrid1.Cells[ACol, ARow], taRightJustify);

  if ARow = 0 then
    Display(tntStringGrid1, tntStringGrid1.Cells[ACol, ARow], taCenter)
end;                    

1:
2:
3:
4:
5:

  with sender as TStringgrid do
  begin
    if pos('preis', lowercase(cells[Acol,0])) > 0 then
      Display(tntstringgrid1, tntstringgrid1.Cells[ACol, ARow], taRightJustify);
  end;                    

1:
2:
3:

cells[2,z] := format('%8.2f %-2s', [poswert, '€']);
// bzw. mit
cells[2,z] := format('%8.2m', [poswert]);