Consulta de dos tablas Firebird

[[Caral]]

Hola

Código Delphi [-]
QTemp.SQL.Text := 'Select Codigo.ID_CAMION, Camiones.ID_CAMION From Camiones, Codigo WHERE Codigo.ID_CAMION <> Camiones.ID_CAMION  ';
QTemp.Active := True;
   While not QTemp.Eof do
   begin
      Combobox1.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
QTemp.Active := False;

Saludos