Olá, você tem que definir esta máscara no componente visual a ser utilizado para exibir o campo, por exemplo a propriedade "PasswordChar" de um TDBEdit / TEdit, por padrão o valor default do campo é "#0", você deve muda-lo para "*" ou qualquer outro caractere que deseja utilizar como máscara.
Editado:
Você vai precisar herdar a classe do TString List na sua própria classe:
TMyGrid = class(TStringGrid)
protected
function CreateEditor: TInplaceEdit; override;
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
end;
E em seguida implementar os métodos redeclarados:
function TMyGrid.CreateEditor: TInplaceEdit;
begin
Result := TInplaceEdit.Create(Self);
if (Passwd) then
TMaskEdit(Result).PasswordChar := '*';
end;
procedure TMyGrid.DrawCell(ACol, ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
if (Passwd) then
Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, StringOfChar('*', Length(Cells[ACol, ARow])))
else
Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, Cells[ACol, ARow]);
end;
e então você pode usar o seu TStringGrid customizado:
meuGrid := TMyGrid.Create(Self);
meuGrid.Parent := Self;
meuGrid.Left := 5;
meuGrid.Top := 5;
meuGrid.Width := 400;
meuGrid.Height := 400;
meuGrid.Options := meuGrid.Options + [goEditing];
Aí vai funcionar, vc só precisa definir a lógica da variável "Passwd"
Abraços.