Variable "x" is declared but naver used in Tform...

Bonjour,

je suis entrain de réalisé une programme sous Delphi ou j'ai commencé a programmer une procedure pour un bouton cependant lors de la compilation on me revoit cette erreur:
Variable "x" is declared but never used..le hic c'est que cette variable je l'utilise dans mon programme!! de quoi peut il s'agir SVP? pouvez vous m'aider?

j'attends vos suggesions SVPPP

voila le code de la procédure

<<procedure TForm1.Button1Click(Sender: TObject);
var TabInd,TabD:array [1..100] of Integer;
GlbSom,som1,som2,p,x,n,i,j,k:integer;
//calculer les degrés de chaque sommet
begin
n:=strtoint(SaisiNbrTxt.Text) ;
for i:=1 to n do
for j:=1 to n do
if strtoint(MatriceStringGrid1.Cells[j,i])=1 then TabD[i]:=TabD[i]+1 ;
end;
//ordonner les donnèes du tableau TabD
x:=TabD[1];
for j:=1 to n-1 do
for k:=j+1 to n do
if TabD[k]>TabD[j] then
begin
x:=TabD[k];
TabD[k]:=TabD[j];
TabD[j]:=x;
end;
//constituer un vecteur d'indice ou le degré de chaque sommet et supérieur a i-1
for i:=1 to n
if TabD[i]>= i-1
then
begin
TabInd[i]=i;
end;
// calculer p qui est la valeur max du vecteur TabInd
p:=TabInd[1];
for i=2 to n
if TabInd[i]>p then
begin
p=TabInd[i];
end;
//calculer la 1ere somme
som1:=d[1];
for i=2 to p
do
begin
som1:=som1+TabD[i];
end;
for i:=p+1 to n
do
begin
som2:=som1+TabD[i];
end;
if som=p*(p-1)+som2 then messageDlg('G est un graphe scindé',mtInformation,[mbOK],0)
else messageDlg('G n''est pas un graphe scindé',mtInformation,[mbOK],0);