[Migatto]

Здравствуйте.
На форме лежит TabControl, Memo и rzBox. (rzBox выполняет функцию FileListBox из Win 3.1)

На TabControl.onChange указано такое:

Memo.Lines.LoadFromFile(TabControl.Tabs[TabControl.TabIndex]);

Мне необходимо создать функцию создания файла. Пишем на CreateButton.onclick:

CreateFile(PChar(rzBox.Directory+fName.Text),Gener ic_WRITE,0,nil ,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); // создаем файл с помощью Директории rzBox и названия (чтобы новый файл создавался в уже открытой директории
CreatePanel.Hide; // скрываем панель создания нового файла
Memo.Clear; // очистка нового Мемо
TabControl.Tabs.Add(fName.Text); // добавление новой вкладки
TabControl.TabIndex:=s; s:=s+1; // фокусировка на новую вкладку

Добавлено также Memo.onChange:

Memo.Lines.SaveToFile(TabControl.Tabs[TabControl.TabIndex]);

При компиляции никаких ошибок нет, всё работает отлично. НО при создании второго файла получаем ошибку что Memo не может открыть созданый файл, т.к. его еще не существует (Cannot open file '...', file doesn't exist). Вот такое дело получается: хотя функция CreateFile и присутствует, однако файл создается только тогда, когда я начинаю в нём что-то печатать (срабатывает Memo.onChange). А согласно с TabControl.onChange при изменении вкладок Memo считывает информацию с файла, который должен быть создан. Вот и получается такая ситуация...

Если возможно, помогите. Может можно создавать файл мгновенно, и такого не будет.
Заранее огромное спасибо!