類型TMyThread=class(TThread)
普裏阿瓦特
ft ext:string;
.......
過程TMyThread。UpdateUI
開始
表單1。Edit1。text:= ft ext;
結束;
過程TMyThread。執行;
................
ft ext:= IntToStr(I);
synchronize(update ui);