Usando Threads para atualizar GUI do windows

Source: pt.stackoverflow.com --- Friday, March 31, 2017
Tenho uma thread que quero que atualize um progress bar a cada iteração de uma TQuery por exemplo, porém o que eu notei é que para realizar o processo da query, tenho que colocar a função que faz select dentro da thread, como exemplo abaixo: procedure TGeradorArquivos.GeraArquivo; var CaminhoArquivo: String; Arquivo: TextFile; begin Self.Query.Sql.Clear; Self.Query.Sql.Add('Select * from Teste'); Self.Query.open; if Self.Query.Recordcount > 0 then begin AssignFile(Arquivo,CaminhoArquivo); Rewrite(Arquivo); FrmTeste.ProgressBar.Max := Self.Query.RecordCount; try while not Self.Query.Eof do begin Write(Arquivo,Self.Query.FieldByName('Campo').AsString); FrmTeste.ProgressBar.StebBy(1); Self.Query.Next; end; finally CloseFile(Arquivo); end; end; end; tem algum jeito de desvincular a função para atualizar a progress bar? Ou seja tirar o select dessa thread e deixar apenas para atualizar a GUI do formulário? ...

from Windows http://ift.tt/2opginy