TStatusBar

[DarkByte]

Hola jymy, te recomiendo que intentes usar las etiquetas [ Delphi ] y [ /Delphi ] (sin espacios) para encerrar el código, así aclaras tu duda a los demás.

Código Delphi [-]
ShowMsg(QGen.Fields[0].AsString)

Código Delphi [-]
FormMain.StatusBarMain.Panels.Items[1].Text := QGen.Fields[0].AsString

Aunque tampco es necesario para líneas tan cortitas. También te aconsejaría que dieses más información, como plataforma, versión de Delphi, etc.