[jachguate]

Así:

Código Delphi [-]
Procedure TForm1.GridHorarioClick(Sender : TObject);

Var
  HoraInicio : Integer;

Begin
  HoraInicio := HoraDeLaCeldaSeleccionada;
  if not ExisteCita(HoraInicio-1) Then
    CrearNuevaCita(HoraInicio)  // Crea una nueva cita en la hora de inicio
  else
    AgrandarCita(HoraInicio - 1, 1); //Agranda la cita anterior en 1 hora
end;

Hasta luego,



pd. Si por casualidad no coincidiera con el código de tu aplicación, será porque la telepatía me fallo y me conecté a otro equipo. Pido que me disculpes por anticipado por mi error.