Trackbar Problem

[DRPEnc]

Ich hab eine Trackbar und eine Edit.
In der Edit soll die Positon der Trackbar angezeigt werden.
Folgendes hab ich probiert:

Delphi-Quellcode:

procedure TForm1.TrackBar6Change(Sender: TObject);
var
Pos : double;
const
_minQ : array [1..31] of double = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31);

begin
Pos := _minQ[TrackBar1.Position];
Edit81.Text :=Pos;
end;

Nur die letzte Zeile for end; passt nicht.

Kommt die Fehlermeldung: Incompatibe Types: Double and String

Klingt logisch. Wie fixe ich das, dass es funzt?

Falls ich ein Array von [80..200] muss ich dann hinter double = alle Zahlen hinschreiben, oder kann man das vereinfachen?