Label korrekt zur Laufzeit erzeugen?

[Sir Rufo]

Ich würde ja ein Label Test1 fest anlegen und dann sieht der Code wie folgt aus:

Delphi-Quellcode:

// Gibt es einen Autor?
if tb.FieldAsString( tb.FieldIndex['aname'] ) <> '' then
  Test1.Caption := tb.FieldAsString( tb.FieldIndex['aname'] )
else
  Test1.Caption := 'Some other information with a DRY KISS';