Delphi 多线程的一个代码如何写

前几天刚好有个客户叫我用DELPHI帮忙写个线程例子，给你看看 //主窗体 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TM