Tambien encontre esto...
es un codigo para almacenar una foto... en una ruta x... con un nombre xx.. aunque la imagen la estoy rescatando de un TImage...
Código Delphi
[-]
Var
Nombre_Archivo : String;
Nombre_Archivo:= Concat(DateToStr(Date()),'-',0001');
TImage1.Picture.SaveToFile('C:\MEDIOS\MEDIO2\'+Nombre_Archivo+'.jpg');
espero te sirva...