TYPE pb=^tb; var Addr: DWORD; ... //Адрес: tbp:=@s; // tbp[i] содержит байты адреса. Но проще так: Addr:=DWORD(s); // Тут в Addr будет адрес целиком //Сама строка: tbp:=pb(s); // tbp[i] содержит байты строки