[NIch]

Да точно так же...

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 with Sender as TComboBox do
 begin
 ...
 end;
end;

А эта ошибка

"Invalid class typecast"

возникает потому что к примеру Edit не может быть as TComboBox, т.е. нужно еще вставлять проверку...для этого и рекоммендую испольовать Tag...