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

  for i := 1 to 37 do
  begin
    if (TRadiobutton(FindComponent('RadioButton' + IntToStr(i))).Checked = True) then
      feld_radio[i] := '1'
    else
      feld_radio[i] := '0';
  end;  

// Der Insert ist nur ein Teilauszug

mysqlquery1.sql := 'insert into xx (
'berufhoch,wochenzeitung,tageszeitung,buch,' +
    'buchwelche,internet,instrument,instrumentjahre,' +
    'verheiratet,alleinstehend,standsonst,einzelkind,' +
    'erstgeboren,reihenkind,wohnort,einwohner,' +
    'beobachten,karnofsky,station,zimmer) values '+
    '"' + edit3.Text + '","' + edit4.Text + '","' + edit5.Text  +
    '","' + feld_radio[1] + '","' + feld_radio[2] + '","' + feld_check[1] +;
    '"' + edit7.Text + '","' + feld_radio[3] + '","' + feld_radio[4] +
    '","' + feld_radio[5] + '","' + feld_radio[6] + '","' + feld_radio[7] +
    '","' + feld_radio[8] + '","' + feld_radio[9])';                    

1:
2:

Query.SQL.Text:= 'select * from Blubb where ID = :P';
Query.ParamByName('P').AsInteger:= 120;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

for i:= 1 to 37 do
  begin
    if (FindComponent('Radiobutton' + IntToStr(i)) <> nil) then
        begin
             if (TCheckbox(FindComponent('Radiobutton' + IntToStr(i))).Checked = True) then
               sqlquery1.ParamByName('r' + IntToStr(i)).asString := '1'
             else
               sqlquery1.ParamByName('r' + IntToStr(i)).asString := '0';
        end;
  end;  

 memo1.lines.add('insert into patient (name, vorname,' +
    'geb, sehengut, vermindertsehen, brille, welchebrille,' +
    'hoerengut, hoerenvermindert, hoergeraet, haendigkeitrechts,' +
    'erstgeboren,reihenkind,wohnort,einwohner,' +
    'beobachten,karnofsky,station,zimmer) values ("'+
    '"' + edit3.Text + '","' + edit4.Text + '","' + edit5.Text  +
    '",:r1,:r2');