[Alegun]

Вот ещё один вариант с использованием FindComponent:

Код:

for i := 1 to 3 do
 begin
 (FindComponent('tb_' + inttostr(i)) as TEdit).Text := '';
 (FindComponent('cb_' + inttostr(i)) as TComboBox).Clear;
 end;