[Kaktuz]

Вообщем у меня так получилось. не знаю на сколько это правильно. Хотя для проверки этого будет достаточно, но вот для преобразования всего файла в HEX данные нет.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Typ: TStringList;
  a,b: string;
begin
If OpenDialog1.Execute then
  begin
  Typ := TStringList.Create;
  Typ.LoadFromFile(OpenDialog1.FileName);
  a:=Typ.Text;
  b :=
  IntToHex(Ord(a[1]), 2)+
  IntToHex(Ord(a[2]), 2)+
  IntToHex(Ord(a[3]), 2);
  // --- ///
  if b = '89504E' then ShowMessage('PNG');
  if b = 'FFD8FF' then ShowMessage('JPG');
  if b = '424DFA' then ShowMessage('BMP');
  end;
end;