TStatusBar

[jymy788]

Buenas tardes a todos.

Tengo el siguiente problema; Tengo una TStatusBar en mi aplicación con dos paneles de forma que en el primer panel pone "Mensaje" y en el segundo panel pondrá el texto referido al mensaje. Pues bien, este texto se lo paso así:

ShowMsg(QGen.Fields[0].AsString)

(
También probé con :
FormMain.StatusBarMain.Panels.Items[1].Text := QGen.Fields[0].AsString
)

y lo que me hace es cortar el campo como si no le entrara entero a la propiedad Text del StatusBar.panel[1].Text.

Por qué me hace esto? Cómo puedo solucionarlo?