[dr. F.I.N.]

Тогда преобразовывать на этапе вывода.

Код:

var
  slovo: array[1..10] of char;
  s: string;
begin
  slovo[1] := 't';
  slovo[2] := 'e';
  slovo[3] := 's';
  slovo[4] := 't';
  SetString(s, PChar(@slovo), 4); // можно так
  ShowMessage(s);
  s := Copy(slovo, 1, 4); // можно так
  ShowMessage(s);
end;

Есть много вариантов.