CheckBox auswerten

[manfred_h]

Hallo zusammen

habe hier folgendes:

auf einem Form sind mehrere Checkboxen die ausgewertet werden und in ein
Datenbankfeld eingetragen werden. Das sieht dann so aus:

Delphi-Quellcode:

procedure Tfrm_member.insert_chairmen;
var
  CM, SCH, HM, MBP, H, NH, SS, PS, D: string;
  A_SCH, A_HM, A_AH, A_NH, A_PS, A_DOC :string;
begin
  if G_CheckBox_church.Checked    then CM  := 'CM';
  if G_CheckBox_school.Checked    then SCH := 'SCH';
  if G_CheckBox_hotel.Checked     then HM  := 'HM';
  if G_CheckBox_hospital.Checked  then H   := 'H';
  if G_CheckBox_mbp.Checked       then MBP := 'MBP';
  if G_CheckBox_nursinh.Checked   then NH  := 'NH';
  if G_CheckBox_bibel.Checked     then SS  := 'SS';
  if G_CheckBox_ps.Checked        then PS  := 'PS';
  if G_CheckBox_donors.Checked    then D   := 'D';
  if A_CheckBox_school.Checked    then A_SCH := 'A_SCH';
  if A_CheckBox_hotel.Checked     then A_HM  := 'A_HM';
  if A_CheckBox_hospital.Checked  then A_AH  := 'A_H';
  if A_CheckBox_nursinh.Checked   then A_NH  := 'A_NH';
  if A_CheckBox_ps.Checked        then A_PS  := 'A_PS';
  if A_CheckBox_Doctor.Checked    then A_DOC := 'A_DOC';
  with DM_member.Member do
  begin
    Edit;
    FieldByName('CHAIRMEN_G').AsString := ( CM +' '+ SCH +' '+ HM +' '+ MBP +' '+ H +' '+ NH +' '+ SS +' '+ PS +' '+ D +' ');
    FieldByName('CHAIRMEN_A').AsString := ( A_SCH +' '+ A_HM +' '+ A_AH +' '+ A_NH +' '+ A_PS +' '+ A_DOC +' ');
  end;
end;

Das Problem ist hier das es einen Schönheitsfehler hat das wenn ich nur 2 Checkboxen angewählt habe
z.B. G_CheckBox_church.Checked & if G_CheckBox_ps.Checked dann sieht das Ergebnis so aus.
CM PS
Der Abständ sollten eigentlich nur 1x verhandn sein.
Wie könnte ich das lösen?

Shalom
Manfred