C:\codetyphon\CodeOcean\Solutions\samples\LSListProcess
procedure TMainForm.UpdateListButtonClick(Sender: TObject);
var
VProcess: TStringList;
begin
VProcess := TStringList.Create;
try
LSListProcess(VProcess);
ProcessListBox.Items := VProcess;
finally
VProcess.Free;
end;
end;