[lmikle]

Ничего не понял.

Так что-ли:

Код:

var
  Src : DWORD;
  A : String[4];
  I : Integer;
begin
  Src := Src Shr 8;
  For I := 1 To 4 Do
    Begin
      A[i] := Chr(Src Or 63); // 63 = 00111111
      Src := Src Shr 6;
    End;