Как сохранить файл заранее указывая папку?

[highklass]

jpg := TJpegImage.Create;
jpg.Loadfromfile(OpenPictureDialog1.FileName);
if jpg.Height > jpg.Width then
scale := 50 / jpg.Height
else
scale := 50 / jpg.Width;
bmp:= Tbitmap.Create;
bmp.Width := 48;
bmp.Height:= 48;
bmp.Canvas.StretchDraw( bmp.Canvas.Cliprect, jpg );
jpg.Assign( bmp );
jpg.SaveToFile(ChangeFileext('C:\Temp\ntc\', '002.png'));
bmp.free;
jpg.free;end;

Нужно заранее прописать путь сохранения изображения и менять его в любое время не ограничиваясь лишь 'C:\Temp\ntc\'
например в Edit?
Если заменить 'C:\Temp\ntc\' на Edit1.text то выдает ошибку и не сохраняет.
jpg.SaveToFile(ChangeFileext('C:\Te mp\ntc\', '002.png'))?
Как по другому сохранить изображение?


Как сохранить картинку заранее указывая любую папку?

[eoln]

Лучше savedialog кинуть и так

if savedialog1.Execute then jpg.SaveToFile(savedialog1.FileName);

Последняя папка будет сохраняться

[highklass]

var sDir:string;
...
sDir := Edit1.Text;
if Length(sDir)=0 then begin
    // забыли ввести путь
end else begin
    if not(sDir[Length(sDir)] in ['\','/']) then sDir := sDir+'\';
    if ForceDirectories(sDir) then begin
        //путь создан, теперь сохраняем:
        jpg.SaveToFile(sDir+'001.jpg');
    end else begin
        // не удалось создать путь
    end;
end;

Этот будет по лучше