Meter variables en un MessageBox

[acrophet]

el problema que tengo es que al intentar meter el texto fijo + uno variable es cuando me falla, exactamente en este codigo:

application.messagebox ('Dar cita a '+Pchar(edit3.text)+'el día'+Pchar(fecha),'Confirmación', MB_yesno + mb_iconquestion)

me da el error de incompatible types string and pchar pero el cursor se me queda a la altura de " 'Confirmación' ".
???¿¿??