Fórum calendario com eventos #476167

galera vasculhando o forum achei o que queria para implementar
meu calenderio de eventos com esse código

var
d,m,y:word;
data:TDate;
begin
d:=strtoint(edit1.text);
m:=strtoint(edit2.text);
y:=strtoint(edit3.text);
data:=Encodedate(y,m,d);
MonthCalendar1.Date:=data;

porem ele so acrescenta uma unica vez

gostaria de saber com adiciionar mais de um evento

e se possivel como salvar no banco de dados e toda
vez que abri esse form esta la no calendario

uso delphi7 e mysql 5.0