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;