TrackBar Position und Div?

[Tommy1988]

Mh, ich habe immernoch leichte Probleme:

Delphi-Quellcode:

function RundeAufStelle(zahl: double; stellen: integer): double;
var multi: double;
begin
  multi:=IntPower(10, stellen);
  zahl:=round(zahl*multi);
  result:=zahl/multi;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
T : String;
begin
// Beispiel:  Songlänge 3,48 Min.
// TrackBar Max wird auf 209 gestellt
// 209 wird durch 60 geteilt: 
// Ergebnis: 3,48 periode. 
T := IntToStr(TrackBar1.Position div 60);
Caption := FloatToStr(RundeAufStelle(StrToInt(T), 2)); 
// hier wird 3,4888888888 auf 3,48 gerundet und SOLLTE so ins caption
// geht abr nicht  :( 
end;

Edit: hatte mich heir vertippt..