[Delphi\Object Pascal] Help with threads

hey i was wondering if anyone here knows how to do this in delphi/OP

Me.Invoke(new UpdateMenuCallback(AddressOf UpdateMenu), New Object {menu})

i got the thread to execute but i cant update the menu with the new wmi information

this is where i need to do it

Code:

procedure MemoryManagement.Execute;
var
 loop: Integer;
 w: Integer;
begin
  loop_main := 1;
  loop := loop_main;

  while (loop = 1) do
  begin

  if (loop_main =0) then exit;

  for w := 0 to 20 do
    begin
    EmptyWorkingSet(GetCurrentProcess());
    sleep(1000);
    end;
  end;
end;

 

woohoo i got it lol

Code:

procedure MemoryManagement.Execute;
var
 loop: Integer;
 w: Integer;
begin
  loop_main := 1;
  loop := loop_main;

  while (loop = 1) do
  begin

  if (loop_main =0) then break;

  for w := 0 to 20 do
    begin
    EmptyWorkingSet(GetCurrentProcess());
    sleep(1000);
    end;
    Synchronize(UpdateMenu);
  end;
end;