Hello All, 
The following code works when I compile with Delphi 1.x but not with Delphi 
2. Anyone know why? 
begin 
   CharByte:=FBuffer[x]; 
   If (CharByte0) or (CharByte32) then 
   begin 
      CharByte:=CharByte xor Ord(Key[Ctr]); 
      FBuffer[x]:=CharByte; 
      end; 
      If (CharByte=0) or (CharByte=32) then CharByte:=CharByte xor 
Ord(Key[Ctr]); 
      If Ctr>KeyLen then Ctr:=0; 
      Application.ProcessMessages;
end; 
  
The routine encrypts the contents of the buffer. Works fine when I compile 16 
bit, 32 bit does not change the buffer. Everything remains the same. Compiles 
without errors with either compiler.  
Any help would be appreciated. 
Thanks, 
        Steve 
--- FreeMail 1.07b
(1:203/21)
---------------