Source position: amigados.pas line 2133
function CompareDates(
date1: PDateStamp;
date2: PDateStamp
):LongInt;