Lazarus 异步线程

{$mode objfpc}{$H+}

或者

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := 'start...';
TThread.CreateAnonymousThread(
procedure
var
i: integer;
begin
Sleep(1000);
for i := 0 to 99999 do
TThread.Synchronize(nil,
procedure
begin

    Form1.Edit1.Text := IntToStr(i);
  end
  );
Edit1.Text := 'end.';

end
).Start;
end;

大佬们说是要在PFC3.3以上。用的是3.2.2 所以没有验证。