Представляю проект "Старая печатная машинка"
Код:
var
i:integer;
begin
...........................
i:=63636363;
............................
c1:=i shl 8;
c1:=c1 shr 26;
c2:=i shl 14;
c2:=c2 shr 26;
c3:=i shl 20;
c3:=c1 shr 26;
c4:=i shl 26;
c4:=c4 shr 26;
end