попробуй так
Код:
var
i:integer;
i2:integer;
begin
i2:=strtoint(edit1.Text);
for i:=1 to strtoint(edit2.Text)-1 do begin
i2:=i2+1;
if i2=8 then i2:=1;
end;
ShowMessage(inttostr(i2));
end;
где:
//edit1.text - день недели в виде от 1 до 7 (на число первого января)
//edit2.text - нужный день в году