Извлечь дату съемки из Jpeg файла (EXIF)

[ArtZ91]

function getExifDate(id:integer):string;
var ex : TExif;
    s : string;
begin
  ex:=TExif.Create;
  try
  ex.ReadFromFile(Form1.ListBox1.Items[id]);
  if ex.Valid then
    begin
      s := ex.DateTimeOriginal;
      result := copy(s,9,2) + '.' + copy(s,6,2) + '.' + copy(s,0,4);   //<<<-- ВМЕСТО этого неправильная кодировка на форме (AnsiString предположительно)
      //result := (s);
    end
  else result := '01.01.0001';
  finally
    ex.Free;
  end;
end;

[ArtZ91]

вот это, как ни смешно, в паре с предыдущим дает правильный результат...

for I := 1 to 10 do
    begin
      case res[i] of
        'а' : res[i] := '0';
        'б' : res[i] := '1';
        'в' : res[i] := '2';
        'г' : res[i] := '3';
        'д' : res[i] := '4';
        'е' : res[i] := '5';
        'ж' : res[i] := '6';
        'з' : res[i] := '7';
        'и' : res[i] := '8';
        'й' : res[i] := '9';
      end;
    end;

[Kozlov.Vadim]

А вот тут исходник даже для более серьезной обработки EXIF:
http://www.delphisources.ru/pages/so...-metadata.html
Вдруг кому пригодиться.