Столбцы в БД по выбору

[rubik]

Нужно выводить столбцы по выбору через CheckBox. Не хочется иcпользовать:

if CheckBox:= true then begin 
Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select tb1, tb2 * from name.db );
 Query1.Open; 
......
else 
if CheckBox:= false then begin
Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select  * from name.db );
 Query1.Open; 
.....
end;

потому что для каждой процедуры придется ''лишний код'' проверки вставлять. Можно сделать это более проще?

[pray_driver]

Query1.Sql.Add('SELECT tb1 ');
If CheckBox1.checked then
    Query1.Sql.Add(', tb2 ');
Query1.Sql.Add('FROM name.db');

- ничего 2 раза писать не требуется!