Delphi 處理大量資料時不讓 Form 凍結 Application.ProcessMessages

在處理大量資料時，若不想讓 Form 凍結無法移動，可以在迴圈中加入 Application.ProcessMessages 來處理 Windows Message
在 Form 上放一個 TMemo，一個 TButton
在 Button1 click 事件中加入

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  Application.ProcessMessages;
  for i := 1 to 500 do
  begin
    Memo1.Lines.Add(IntToStr(i));
    Sleep(10);
    Application.ProcessMessages;
  end;
end;