TDateTime si ešte nepočul? Tak to máš blbéé...

Len narýchlo som si pozrel ten Tvoj program a navrhujem nasledovné:
1. datum zmeň zo string na TDateTime !
2. čo ak niekto zadá 31.2.xxxx ? Nahraď tie 3 ComboBoxy pre zadávanie dátumu komponentou TDateTimePicker - ušetríš kód a budeš mať ošetrené korektné zadanie dátumu
3. Pre porovnanie či je dátum väčší ako 3 mesiace použi funkciu:
function IncMonth(Date: TDateTime; Months: Integer) : TDateTime; zväčšíš dátum načítaný zo súboru o 3 mesiace a výsledok porovnáš s aktuálnym dátumom, ten zistíš
funkciou Now: TDateTime

čiže asi takto:
if IncMonth(porovnavany_datum,3) > now then (nemôže darovať)
else (môže darovať)

Good luck!