Срочно!Не могу найти ошибки.Помогите!!!

[VM007]

Прога простейшая, транслитератор, но я чайник:(
Помогите найти ошибки, не сохраняет и говорит что текстовый файл не найден.
Что делать, через 3 часа надо сдавать.
Код в текстовом файле.

[pva]

AssignFile(f1,SaveTextFileDialog1.FileName);

Reset(f1);
{$I+}
If IOResult <> 0 then
begin

Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
Application.Terminate;
end;

AssignFile(f2,SaveTextFileDialog1.FileName);

Открываешь файл (и блокируешь), а потом в него же пытаешься записывать

[VM007]

Reset(f1);
{$I+}
If IOResult <> 0 then
begin

Application.MessageBox('Не удается открыть файл "*.txt"','Ошибка открытия файла',mb_ok);
Application.Terminate;
end;
Это все выкинуть?
просто я половину списал:(

[VM007]

Все равно он почему то не компилируеся.
Выдает ошибку здесь: - SaveTextFileDialog1.Execute;- Что делать?

[CyberDaemon]

Предыдущая строчка не заканчивается ;

Но это не имеет ни малейшего значения, поскольку логика работы...
Зачем ты загружаешь файл в memo1 и потом сохраняешь его? Чтобы можно было править? Тогда разберись с именами файлов в манипуляциях с memo1 и в самой процедуре обработки
На логическую ошибку тебе уже указал pva - открыть файл f1 для чтения и тут же f2 с таким же именем для записи, стереть его и попытаться из него читать... Не-а, не выйдет :)

просто я половину списал
Заметно :)
через 3 часа надо сдавать
Отправлено: 13:23
Наверное, всё, время вышло...

[VM007]

Выражаю особую благодарность PVA.
Спасибо, все понял, нагородил сам лишнего, а потом ищу ошибки.
Но как говориться "Молодо-зелено" :)
Большое спасибо PVA за помощь.
Все решено.