[BDWONG]

Hola te dejo este ejemplo usando arreglos uno simple para las marcas y uno de dos dimensiones para los modelos
si tienes dudas me avisas

Código Delphi [-]
var
  Form1: TForm1;

  //Marcas de los autos
  marcas:array[0..2] of string=('Toyota','Chevrolet','Ford');

  //Modelos de los autos
  modelos:array[0..2,0..2]of string=(('Alphard','Altezza','Auris'),
                                      ('Bel Air','Beretta','Bison'),
                                      ('Capri','C-Max','Corcel'));

implementation

uses Math;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
   //Llenamos el comboBox1 con el nombre de las marcas
   For i:=low(marcas) to High(marcas) do
   begin
     ComboBox1.Items.Add(marcas[i]);
   end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
i:integer;
begin
  //Limpiacmos el comboBox2
  ComboBox2.Clear;
  //Si no marcas en el comboBox1 o no se ha seleccionado alguna marca salimos
  If ((ComboBox1.Items.Count=0) or (ComboBox1.ItemIndex=-1)) then Exit;

  //Rellenamos el comboxBox2 con los modelos de acuerdo a la marca
  For i:=low(modelos[0]) to High(modelos[0]) do
  begin
   ComboBox2.Items.Add(modelos[ComboBox1.itemIndex,i]);
  end;
  //Cambiamos el text del ComboBox2 para que el usuario visualise el efecto de cambio
  ComboBox2.Text:=modelos[ComboBox1.itemIndex,0];
end;

end.

Saludos...