1:
2:
3:
4:
5:

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
 if StringGrid1.Col = 6 then Value := '!###'+'kg';
end;					

1:
2:

75 kg
100kg					

1:
2:

 75kg
100kg					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//...
 if aCol = 6 then
  if Pos('kg', Cells[ACol, ARow]) = 0 then
   Cells[ACol, ARow] := Cells[ACol, ARow]+'kg';