Cadeau, voici la méthode à rajouter dans le code pour pouvoir importer depuis un CSV (à ajouter dans le source)

procedure TVUXStringgrid.ImportFromCSV(FileName : string;separator:string = ';';FirstLineFixed:Boolean = False);
{Importe le contenu d' un fichier CSV dans la grille}
var
  strs : TstringList;
  i,j,p : integer;
begin
  strs := TstringList.Create;
  strs.LoadFromFile(FileName);
  RowCount := strs.Count; //MAJ le nombre de lignes de la grille
  ColCount :=1;
  fixedcols := 0;
  if FirstlineFixed then fixedrows := 1 else fixedrows := 0;
  i := 0;
  while i < rowcount do begin
    p := pos(separator,strs[i]);
    j := 0;
    while p > 0 do begin
      cells[j,i] := copy(strs[i],1,p-1);
      if p <= length(strs[i]) then strs[i] := copy(strs[i],p+ length(separator),length(strs[i]));
      p := pos(separator,strs[i]);
      j := j+1;
      if (j>colcount) then colcount := colcount + 1;
    end;
    if length(strs[i]) > 0 then begin //Si il n' y a pas de ; à la fin, mais qu' il reste du texte
      cells[j,i] := strs[i];
      j:=j+1;
      if (j>colcount) then colcount := colcount + 1;
    end;
    i := i +1;
  end;
  strs.Free;
end;

Oui c vrai je le ferais très vite

Encore plus simple:
function EstPair(n:integer):boolean;
begin
  Result := (n mod 2) = 0;
end;

Autre précision: Faut plus utiliser le type Real:
A la place fo utiliser Single,Double ou Extended.
Car real est juste laissé pour des raisons de compatibilité avec les précédentes versions et n' est pas conforme à la norme IEEE.

just pour te préciser que c' est la fonction sqrt de delphi qui calcule la racine carrée.

non val convertit une expression en sa valeur numérique.
isnumeric indique juste si l' expression est une valeur numérique ou non.

Note: le 46 indique le caractère "." pour la virgule.
Si vous voulez utiliser le caractère ',' remplacez 46 par 44