выделить бит

[AVer]

function TestBit(const Data:longint;nPos:integer):boolean;
var
 Mask:longint;
begin
 Mask:=1;
 Mask:=Mask shl nPos;
 if (Mask and Data)=Mask then Result:=true else Result:=false;
end;