3x3 Matrix erstellen

[Boyington]

Hallo Leute,
also ich möchte eine einfache 3x3 Rotationsmatrix in Delphi erstellen, aber habe immer Fehlermeldung ("incompatible types integer and extended") bekommen, könntet ihr mir vielleicht mal helfen, wo der Fehler liegt.

Vielen Dank wie immer
Gruss
Lee

Code:

uses
  .....
type
    Matrix_3x3 = array[1..3, 1..3] of real;
   
TForm1 = class(TForm)
...

Var
  Form1: TForm1;
  Rotationsmatrix: Matrix_3x3;

implementation
....

procedure TForm1.Button2Click(Sender: TObject);
begin
  Rotationsmatrix[1.1]:=cos(TrackBar4.Position)*cos(TrackBar3.Position);
  Rotationsmatrix[1.2]:=(cos(TrackBar4.Position)*sin(TrackBar3.Position)*sin(TrackBar2.Position))-(sin(TrackBar4.Position)*cos(TrackBar2.Position));
  Rotationsmatrix[1.3]:=(cos(TrackBar4.Position)*sin(TrackBar3.Position)*cos(TrackBar2.Position))+(sin(TrackBar4.Position)*sin(TrackBar2.Position));
  Rotationsmatrix[2.1]:=sin(TrackBar4.Position)*cos(TrackBar3.Position);
  Rotationsmatrix[2.2]:=(sin(TrackBar4.Position)*sin(TrackBar3.Position)*sin(TrackBar2.Position))+(cos(TrackBar4.Position)*cos(TrackBar2.Position));
  Rotationsmatrix[2.3]:=(sin(TrackBar4.Position)*sin(TrackBar3.Position)*cos(TrackBar2.Position))-(cos(TrackBar4.Position)*sin(TrackBar2.Position));
  Rotationsmatrix[3.1]:=-sin(TrackBar3.Position);
  Rotationsmatrix[3.2]:=cos(TrackBar3.Position)*sin(TrackBar4.Position);
  Rotationsmatrix[3.3]:=cos(TrackBar3.Position)*cos(TrackBar4.Position);
end;

end.