Muchas gracias por el programilla y perdón por no haber dado todos los datos necesarios, pero es que pense que no era necesario.
Respecto a lo de los puntos, primero escribió este mensaje:
***************
Facil
Si quieres colocar los 3 memos en un Calendar seria asi:
var
A
ate;
begin
A:= StrToDate(Memo1.text+Memo2.text+;Memo3.Text)
Calendar1.Date:= A;
***************
Y luego lo borro para dejar los puntos, no se porque.
Gracias a todos.