Здравствуйте.
Допустим нужно взять коды символов из внешних переменных Letter1, Letter2, Letter3, перевести их в строку и отобразить в компоненте Text1. Тогда код будет таким:
begin
Text1.Text := UTF8Encode(AnsiChar(Letter1.AsInt) + AnsiChar(Letter2.AsInt) + AnsiChar(Letter3.AsInt));
end.
Если переменных для символов много, то можно автоматизировать построение строки с помощью подпроцедуры. Пусть у нас есть 10 внешних переменных, которые хранят коды символов: Letter1, Letter2, Letter3... Letter10. Тогда их можно вот так перевести в строку:
{ вспомогательная функция для перевода переменных с кодами в строку }
function MyConvert(const APrefix: string; AFrom, ATo: Integer): string;
var
I: Integer;
aVar: TM_Variable;
begin
Result := '';
for I := AFrom to ATo do
begin
aVar := GetVariableByName(APrefix + IntToStr(I));
if aVar <> nil then
Result := Result + AnsiChar(aVar.AsInt);
end;
end;
begin
// инициализируем для примера
Letter1.Value := 192;
Letter2.Value := 193;
Letter3.Value := 194;
Letter4.Value := 195;
Letter5.Value := 196;
Letter6.Value := 197;
Letter7.Value := 198;
Letter8.Value := 199;
Letter9.Value := 200;
Letter10.Value := 201;
// получаем строки из переменных Letter1..Letter10
Text1.Text := UTF8Encode(MyConvert('Letter', 1, 10)); // Text1.Text := 'АБВГДЕЖЗИЙ'
end.