Delphi - Manejar un control con una variable

Tengo varios tCombobox con los siguientes nombres tCombo1, tCombo2 y tCombo3, ¿como puedo hacer referencia a ellos (y sus eventos y propiedades) en un solo metodo? por ejemplo, algo similar al & de clipper:

function actualizaCombo(x : word);
begin
tcombo&x.readonly := True;
tcombo&x.itemindex := 0;
// etc.
end;

o algo similar al tTable.fieldbyname('').

¿alguna sugerencia?

Para no enrollarte la vida puedes usar un case :-)

function actualizaCombo(x : word);
begin
case x of
1 : With tcombo1 do
begin
readonly := True;
itemindex := 0;
end;
// etc.
end;
end;

Lo otro que se me ocurre es

function actualizaCombo(Sender: TObject);
var
cbo : TComboBox;
begin
cbo := Sender As TComboBox;
cbo.readonly := True;
End;

La segunda sugerencia no la he probado pero deberia funcionar...

Saludos
Yamil

De echo, actualmente lo manejo con el sender, pero creo que me podria ahorrar muchas lineas de codigo si el control lo puedo sustituir con alguna macro. De todas maneras GRACIAS

¿Macro?.
Lo adecuado es usar el parámetro Sender sin más.
procedure Tform1.ActualizaCombo(Sender: TObject);
begin
(Sender as TComboBox).ReadOnly:=true;
end;

Gracias Diego, no habia manejado el sender con el "as tComboBox", me imagino que igual lo puedo manejar con un "as tEdit", lo intentare, de nuevo GRACIAS