[4kusNick]

SetFileAttributes(PChar(memo1.Lines.Text) , FILE_ATTRIBUTE_NORMAL);