[Страдалецъ]

На последнем проходе цикла вы обращаетесь к пустому значению грида, но для StringGrida это в общем прокатило-бы, если бы вы не пытались это значение преобразовать в дату:

Код:

StrToDate(StringGrid1.Cells[0,r+1])