C++ konvertering til delphi

jeg har følgende stump c++ kode jeg gerne vil have konverteret til delphi. har prøvet mig frem men får ikke rigtig noget resultat

her er koden:
mem er et array af char
p, byte1 og bit1 er integers

if (mem[p+byte1] & (1 << bit1))
{
  //gør et eller andet
}
mvh
Jesper