Embarcadero Delphi Running a thread while keeping GUI responsive