Resultado de consulta em um combobox.

function Tform1.ListaVeiculo : TStringList;
begin

Result := TStringlist.Create;

Select num_veiculo From Tab_veiculospart 
where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in (Select num_veiculo 
From Tab_veiculosreser where cod_emp =:empresa1) 

  while not eof do
    begin
      result.add(FieldByName(´num_veiculo´).Asstring);
      Next;
    end;

end;

function Tform1.ListaVeiculo : TStringList;
begin

Result := TStringlist.Create;

with datamodule.query1 do
 begin
  Close();
  Sql.Clear();
  Sql.Add(´Select num_veiculo From Tab_veiculospart´);
  Sql.Add(´where cod_emp =:empresa and [Tab_veiculospart].[num_veiculo] not in´); 
  Sql.Add(´(Select num_veiculo From Tab_veiculosreser where cod_emp =:empresa1)´);
  Open(); 

  while not eof do
    begin
      result.add(FieldByName(´num_veiculo´).Asstring);
      Next;
    end;
 end;
end;