Tabellenfelder in einen String kopieren

[needatip]

Hallo,
ich habe eine Tabelle mit ca. 30 Feldern.
Nun möchte ich davon ca. 15 Feldinhalte in einen einzigen String kopieren.
Insgesamt hat der String dann je nachdem zwischen 30 und 1000 Zeichen.
Die einzelnen Inhalte sollen dann mit einer Bezeichnung vorangestellt und durch Komma getrennt
dargestellt werden.
Beispiel:
HERST - BMW
Typ - 328
Bj - 2004
KM - 42.000
ZUST - 2
usw.
Ergebnis-String:
'Hersteller BMW, Typ 328, Baujahr 2004, Km-Stand 42.000, Zustand 2'
Ich hab so angefangen:

Delphi-Quellcode:

procedure dbText;
var s: string;
begin
if db.HERST <> '' then
      s: = 'Hersteller '+db.HERST.FieldByName('HERST').Value + ', ';
    if db.TYP <> '' then
      s: = s + 'Typ '+db.HERST.FieldByName('TYP').Value + ', ';
    if db.BJ <> '' then
      s: = s + 'Baujahr '+db.HERST.FieldByName('BJ').Value + ', ';
...
usw

Gibt es hierzu eine elegantere Lösung?