Uses JPEG;
...
Function JPEG_to_BMP(jpg:TJPEGImage):TBitMap;
begin
  Result := TBitmap.Create;
  Result.Assign(jpg);
end;

MyDIR:=ExtractFileDir(Application.ExeName);

В переменной MyDIR будет храниться путь до папки в которой расположена программа.

Windows.SetFileAttributes('Путь к файлу', атрибут);

// Отражение по горизонтали
Function ReflexionH(source: TBitMap): TBitMap;
var i, j: Integer;