Function FileCreate (nombre:UnicodeString):THandle; begin FileCreate := CreateFileW(PWidechar(nombre), GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); end;