CheckBox, Variablen füllen

[BullsEye]

Hiho,

ich habe folgenden Code:

Delphi-Quellcode:

VAR
       mp2, mp3, mp4, ogg, wma :String; // Suchtypen 

...

IF (chkb_mp2.Checked = true) then begin
mp2 := 'mp2'
end else begin
mp2 := '';
end;
IF (chkb_mp3.Checked = true) then begin
mp3 := 'mp3'
end else begin
mp3 := '';
end;
IF (chkb_mp4.Checked = true) then begin
mp4 := 'mp4'
end else begin
mp4 := '';
end;
IF (chkb_ogg.Checked = true) then begin
ogg := 'ogg'
end else begin
ogg := '';
end;
IF (chkb_wma.Checked = true) then begin
wma := 'wma'
end else begin
wma := '';
end;

Nun meine Frage, geht das auch irgendwie anders, bzw kürzer und übersichtlicher?