[mak-karpov]

if RichEdit1.Lines[i]='' then
continue;