Je pense que ça dépasse quand même le niveau débutant !
Voilà un code qui est intéressant.

Il fallait y penser. Bravo.

C'est ce qu'on appelle aussi utilisation d'un type procédural.
Cette méthode (sans mauvais jeu de mots) est couramment utilisée pour faire des callbacks (ou procédures de rappel).
Intéressant.

Delphicool : les sous-entendus sont souvent à l'origine de malentendus !... [:o].
Comme tu l'as écrit, attendons la réponse de Sonnikk à ce sujet.
Donc, pas de vainqueur tant que ce point n'est pas clarifié.

Alors Nono40, le retour ? ;o) Tu ne nous ferais pas une petite version en assembleur, juste pour le fun ?
A+

Aucun de ceux présents ici n'est exclus.

Yoghisan, pour remplacer n'importe quel caractère dans une chaine, tu peux utiliser  cette fonction (défiie dans SysUtils) :
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;

Delphicool : je ne voudrais pas passer pour un rabat joie, d'autant qu'on s'amuse beaucoup ici (merco Sonnikk ;o)), mais ton code ne respecte pas le contrat, à savoir "mettre la premiere lettre en majuscule", ce qui ne signifie nullement qu'il faille mettre les autres lettres en minuscules !

Hé Japee, pour faire plus court, il doit y avoir moyen d'y parvenir en utilisant l'assembleur (lol).

Bonne soirée à tous et ne t'en fais pas Sonnikk, il y a parfois de l'ambiance ici.
Et là, en plus,  tu as de la chance car il n'y a que des gens bien qui ne veulent que t'aider.

Bon, allez, histoire de remettre de l'huile sur le feu, je vous en propose une autre formulation :

function FirstMaj(const AString: string):string;
begin
  Result := AString;
  if Result <> EmptyStr then
    if Result[1] in ['a'..'z'] then
      Result[1] := Chr(Ord(Result[1]) - 32);
end;

Que se passe-t-il si la chaine reçue en argument est vide ou ne contient qu'un caractère ? :-(

Il ne faudrait pas confondre faire des calculs avec des champs et utiliser des champs calculés !

En cliquant sur "Calculez les champs", on déclenche un exception du fait que l'ensemble n'est pas en mode édition et c'est normal.

Si les champs dans lesquels tu veux écrire sont bien déclarés comme champs calculés (fkCalculated), tu dois aussi utiliser l'évènement OnCalcFields de l'ensemble de données et y mettre ton code comme suit :
procedure TForm2.Table1CalcFields(DataSet: TDataSet);
begin
  //Prix unitaire hors tva
  table1.fieldbyname('puhtva').asfloat :=
    table1.fieldbyname('pu').asfloat * (100
    - table1.fieldbyname('remise').asfloat) / 100;

  // tva
  table1.FieldByName('tva').AsFloat :=
    table1.fieldbyname('PuHtva').AsFloat
    * table1.fieldbyname('tauxtva').asfloat / 100;

  // prix unitaire tvacomprise
  table1.FieldByName('putvac').asfloat :=
    table1.fieldbyname('puhtva').asfloat
    + table1.fieldbyname('tva').AsFloat;
end;
L'utilité du bouton intitulé "Calculez les champs" devient ainsi nulle.

A celà j'ajouterai que, comme les tables physiques sont dans le même dossier que l'application (stocks.*), il n'est pas utile de préciser un chemin dans la propriété DataBaseName de Table1.

Peut-être m'étais-je mal exprimé puisque je crois comprendre que nous sommes tout à fait d'accord, en définitive. Et je n'étais nullement offensé. ;o)

Cette question revient (trop) souvent : "comment faire des calculs sur des cellules d'un TDbGrid", nous pourrons donner cette contribution comme référence.

Merci à ffert pour sa réponse clairement développée.