Problem mit einer Schleife

[mat72]

Hallo,
ich habe ein Problem mit einer Schleife. In der Schleife soll der Max_Wert ermittelt.
Der Zaehler soll auch gleichzeitig die Position merken in pmax. pmax benoetige ich, um von einer 2ten Matrix einen Wert zu bekommen.
Die Werte f1 bis f9 bekomme ich von einer anderen Procedure.
Den Max-Wert bekomme ich angezeigt, nur die Ausgabe der 2ten Matrix funktioniert nicht.
Habe ich einen Denkfehler in dem Programm?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var max : extended;
    i,pmax : integer;
    focusarray : array[1..9] of extended;
    matrixarray : array[1..9] of extended;
begin
 foc:=0;
 pmax:=0;
 focusarray[1]:=f1;
 focusarray[2]:=f2;
 focusarray[3]:=f3;
 focusarray[4]:=f4;
 focusarray[5]:=f5;
 focusarray[6]:=f6;
 focusarray[7]:=f7;
 focusarray[8]:=f8;
 focusarray[9]:=f9;

 matrixarray[1]:=-0.4;
 matrixarray[2]:=-0.3;
 matrixarray[3]:=-0.2;
 matrixarray[4]:=-0.1;
 matrixarray[5]:=0;
 matrixarray[6]:=0.1;
 matrixarray[7]:=0.2;
 matrixarray[8]:=0.3;
 matrixarray[9]:=0.4;

 max:=f1;

 for i:=1 to 9 do
   begin
    if max<focusarray[i] then
    max:=focusarray[i];
    pmax:=i;
   end;
   foc:=matrixarray[pmax];
   stringgrid1.cells[1,1]:=FloatToStrF(foc, ffNumber, 8, 3);
   stringgrid1.cells[2,1]:=FloatToStrF(max, ffNumber, 8, 3);
end;

Danke fuer eure Hilfe.