Лидеры

Если я не прав поправят, но я делаю так uses Threading; var GetCodeTask: ITask; GetCodeTask := TTask.Create( procedure begin ... end); if GetCodeTask <> nil then if GetCodeTask.Status = TTaskStatus.Running then GetCodeTask.Cancel;

Делать так: TThread.Synchronize(TThread.CurrentThread, procedure begin Label1.Text:=Значение; end); А Label лучше заменить на TText

var Data: TIdMultiPartFormDataStream; msResponse: TMemoryStream; sResponse: String; bts: TBytes; ... msResponse := TMemoryStream.Create; try FIdHTTP.Post([URL], Data, msResponse); SetLength(bts, msResponse.Size); msResponse.Position := 0; msResponse.Read(bts[0], msResponse.Size); sResponse := TEncoding.UTF8.GetString(bts); finally FreeAndNil(msResponse); end; Так я работаю с IdHTTP. Я думаю, что-то на подобии этого нужно и Вам реализовать

Используйте TEncoding