[LAV45]

alexteam, говорят нет придела совершенству ))

Function GetInt(const ss: pointer):integer;
var tmp: array[0..3] of byte absolute result;
sm: array[0..7] of byte;
begin
  ^sm := ss; // - хз как тут правильно сделать
// используя чуть больше памяти мы ограничиваемся простым переносом  
// байт из одного массива в другой
  tmp[3] := sm[0];
  tmp[2] := sm[2];
  tmp[1] := sm[4];
  tmp[0] := sm[6];
end;
..........
var ss: string;
begin
  ss := 'iden';
  case GetInt(pionter(copy(ss,1,4))) of 
    $6964656E:; // iden
  end;
end;