[DOS]

Aca la declare

Código Delphi [-]
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form20: TForm20;
  c,h1,m1,s,cv:integer;
  h,m:string;
  hr:Tdatetime;
  f:Tdate;

implementation

La puse para asignar la hora y minutos elegidos por el usuario y que luego la compare con la base de datos para saber si el mismo veterinario ya había utilizado ese turno u horario.
las tablas relacionadas son las siguiente ecfisa
Turnos veterinaria
Cod_turnovet//calve principal integer
Cod_vete//relacionado con veterinario integer
Cod_propi//relacionado con el propietario integer
Cod_masc//relacionado con la mascota integer
Fecha//del turno Datetime
Hora//del turno Datetime

Mascota
Cod_mascota//clave principal integer
Cod_prop//relacionado con el propietario integer
Cod_tamaño//relacionado con tipos de tamaños integer
NombreM//nombre de la mascota
Fecha_nac //datetime
Raza //string
Color etc. //string

Propietario
Cod_prop//clave principal integer
Cod_loc//relacionado con localidades integer
ApellidoP//string
NombreP//string
Direccion etc.//string

Veterinario
Cod_vet//clave principal integer
Cod_loc//relacionado localidades integer
ApellidoV//string
NombreV//string
Direccion etc.//string

Voy a probar tu solucion tambien, a ver si la puedo aplicar
Muchas gracias a ambos.