1:
2:
3:

    SQLQuery1.SQL.Clear;
    SQLQuery1.Sql.Add('SELECT '+ dbFeldName+' FROM vTeilnehmerTabelle WHERE vPersNr = ' + vDatensatzNr);
    SQLQuery1.ExecSQL;					

1:
2:
3:
4:
5:
6:
7:

SQLQuery1.SQL.Clear;  
    SQLQuery1.Sql.Add('SELECT * FROM vTeilnehmerTabelle WHERE vPersNr = ' + vDatensatzNr);  
    SQLQuery1.ExecSQL; 
    for zaehler := 0 to SQLQuery1.FieldCount - 1 do begin 
                        // Ob das wirklich FieldCount heißt, musst du nochmal nachschauen
      // Was du dann mit Fields[zaehler] machst, ist dann deine Sache
    end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

 SQLQuery1.SQL.Clear;
  SQLQuery1.Sql.Add('SELECT * FROM tbTeilnehmerTabelle WHERE vPersNr = ' + vDatensatzNr);
  SQLQuery1.Open;
  for zaehler := 0 to SQLQuery1.Fields.Count - 1 do begin
    dbFeldName := getFirstValue('SELECT column_name FROM DB.information_schema.columns WHERE table_name =  ' + QuotedStr('tbTeilnehmerDuB') + ' and ORDINAL_POSITION = ' + IntToStr(zaehler));
    KomponentenName := dbFeldName;
    delete(KomponentenName,1,1);
    edKomponentenName := 'ed'+Copy(KomponentenName,1,length(KomponentenName));
    chbKomponentenName := 'chb'+Copy(KomponentenName,1,length(KomponentenName));
    cmbKomponentenName := 'cmb'+Copy(KomponentenName,1,length(KomponentenName));
    for j:=1 to Form.ComponentCount - 1 do
  begin
   komponente := Form.Components[j];

    if (komponente is TEdit) then
      if ((komponente as TEdit).name = edKomponentenName) then (komponente as TEdit).text := FeldInhalt
      else
    if (komponente is TCheckbox) then
      if (komponente as TCheckbox).Name = chbKomponentenName then
      begin
        if Feldinhalt = 'J' then (komponente as TCheckbox).Checked := true else (komponente as TCheckbox).Checked := false;
      end;
  end;
  end;					

1:

ShowMessage(SQLQuery1.FieldByName('<feldname>').AsString);