GW> The first line will always evaluate to true.  And you are executing 
GW> the same statement in either of your cases.
GW> Try the following:
GW>  CharByte := CharByte xor Ord(Key[Ctr]);
GW>  if not (CharByte in [0, 32]) then
GW>      FBuffer[x] := CharByte;
GW>  if Ctr > KeyLen then
GW>      Ctr := 0;
GW> I assume you have this in a loop.  If so, it will slow down the 
GW> process tremendously to call Application.ProcessMessages on every 
GW> iteration.  Looping through a string is a very fast process and you 
GW> don't need to worry about giving time back to Windows during this 
GW> period.
Yeah, it is in a loop.  I also relized after someone responded that I hadn't 
incremented my counter. And I probably should take out th 
Application.ProcessMessages. I usually leave that in loops when I am 
debugging, especially 16 bit stuff so I can get control faster if I need it 
while the app is running. Still have much tuning to do. I feel kinda 
embarrased about this one, I should have spotted the problems.  Oh well... 
Steve
--- FreeMail 1.07b
(1:203/21)
---------------