Попробовал изменить адресацию и добился.... теперь и вовсе при повторном переносе если в конечной папке такое имя каталога есть он 100% создает в нем еще одну папку. реализовано вот так.
Код:
for i:=0 to memo2.lines.count-1 do
if (memo2.Text<>'') and (combobox1.Text<>'') then
begin
try
if checkbox8.Checked=false then
MoveDir(combobox1.Text+memo2.Lines[i], ExtractFileDir(Application.ExeName)+'\tails\'+memo2.Lines[i])
else
MoveDir(combobox1.Text+memo2.Lines[i], edit3.text+'\tails\'+memo2.Lines[i]);
except
end;
может можно как то условие проверки на наличие папки сделать, только что тогда делать если например существующая папка будет обнаружена.