델파이에서 쓰레드 사용하기

델파이에서 쉽게 쓰레드 사용하는 방법입니다.
synchronize 는 잘 사용하면 됩니다 🙂
함수내용
uses System.Classes, System.SysUtils, Vcl.Forms;
procedure Wait(Proc: TProc);
var
Thread: TThread;
begin
Thread := TThread.CreateAnonymousThread(procedure()
begin
Proc;
end);
Thread.FreeOnTerminate := True;
Thread.Start;
while not Thread.Finished do Application.ProcessMessages;
end;
사용방법
Wait(procedure()
begin
// .... 내용
end);