Временно запретить форме перерисовываться 2

LockWindowUpdate(Memo1.Handle); 
...
...
LockWindowUpdate(0);