S>procedure TForm1.Button1Click(Sender: TObject); S>begin S> CopyThread:= TCopyThread.Create('TestString'); S>end; S>