your sample dont run correct:
after upload
TMSMCPCloudAI1.Files.Count = 0
i have set a open ai key
procedure TForm1.TMSMCPCloudAI1FileUpload(Sender: TObject;
HttpStatusCode: Integer; HttpResult: string; Index: Integer);
var
li: TListItem;
begin
li := ListView1.Items.Add;
if TMSMCPCloudAI1.Files.Count>0 then begin
FileToListItem(TMSMCPCloudAI1.Files.Count-1, li);
end;
end;