[AIDE]fonction qui entre un tableau et en resort 1...

Voila un exemple qui devrait fonctionner en l'adaptant un peu, c'est pas terrible car vite fait mais ca te permetra de voir tes erreurs

tableau = array [1..2] of integer; //declaration du type mêmel si c'est inutile.

procedure TForm1.Button1Click(Sender: TObject);
var
A : Tableau;
begin
A[1] := 1;
A[2] := 3;
Mic(a); // appel de la fonction --> passage par Adresse (cfg le var dans la déclaration ce la procédure)
Edit1.text := IntToStr(A[1]) + ' - ' + IntToStr(A[2]); //affichage du résultat dans un object graphique (ben vi c delphi )
end;

procedure TForm1.mic(var Param: tableau); //Dans cette fonction, Param et A pointe vers la même zone mémoire. Si tu retire le var de la fonction tu verras que 1- 3 sera alors le résulats
begin
Param[1] := 10;
Param[2] := 30;
end;