... j:= 0; ... If SaveDialog.Execute then Stream.SaveToFile(SaveDialog.FileName); ...
Я не понял Вашего вопроса, но всё же Вам на него отвечу!