for i:=0 to Memo1.Lines.Count-1 do
  if not deletefile(Memo1.Lines[i]) then
    Memo2.Lines.Add('НЕ МОГУ УДАЛИТЬ '+Memo1.Lines[i]);

for i:=0 to Memo2.Lines.Count-1 do
    Memo3.Lines.Add(ChangeFileExt(Memo2.Lines[i]),'');