Hola lking, entonces tienes problemas en obtener el resultado de tu consulta.
Código Delphi
[-]
Query1.Active := False;
Query1.SQL.Text := 'Select Max(num_veh) +1 AS numero from vehiculos.db';
Query1.Active :=True;
NuevoNumero := Query1.FieldByName('numero').AsString;
Saluditos