s := edit1.text;
if (s[length[s]] <> '\') then edit1.text := edit1.text + '\';