Решил проблему с добавлением Unit вот такого вида:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Edit;
procedure setmodeldata(Edit: TEdit);
implementation
uses
System.Rtti;
procedure setmodeldata(Edit: TEdit);
var
SuggestionList: TArray<string>;
begin
SuggestionList := ['Россия', 'Украина', 'Белорусь', 'Азербайджан', 'Армения',
'Грузия', 'Казахстан', 'Киргизстан', 'Латвия', 'Литва', 'Молдавия'];
Edit.Model.Data['suggestion_list'] := TValue.From < TArray < string >>
(SuggestionList);
end;
end.
и вызвал функцию setmodeldata с моей формы.