Número con decimales

[blueicaro]

HOla Tengo un programa dónde tengo una variables declarada así:
Código Delphi [-]Type TOrient = Record Q1 : LongInt; Q2 : LongInt; Q3 : LongInt; Qu : LongInt;


Para que almacenar números de hasta 6 decimales.

Los números los saco de un fichero de texto, que contiene los números así:
2124.58

Leo el fichero de texto, y el valor lo pongo en un String

Mi problema es al convertirlo, ya que siempre me da cero.
Uso una línea como esta:

Código Delphi [-]
 MiOrient.Q1 := StrToIntDef(StBloque,0)

¿que estoy haciendo mal?

Gracias
/BLueIcaro