Somar hora

Colegas..

Preciso numa agenda pela manhã abir 20 campos já marcados com horas especificas: 9:30,9:45,10:00 etc.

tentei assim não ta dando:

var volta:integer;
hora:=ttime;
begin
tbAgenda.last;
volta:=0;
hora:=strtotime(´09:30´);
while not volta = 20 do
begin
tbagenda.insert;
tbagendaData.value:=date;
tbagendahora.value:=hora;
volta:=volta+1;
hora:=hora+15;
next;
end;
end;

tento com esse loop entrar de uma só vez com 20 campos na mesma data, somando 15 minutos a cada novo campo.
funciona mas a hora entra com 9:30 não tá somando!!

alguem teria uma luz?

grato: Jose Luiz