[lmikle]

Вот так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  A : Array [0..6] Of Integer = (0150,0151,0153,0154,0156,0157,0159);
var
  I : Integer;
  S : String;
begin
  S := '';
  For I := Low(A) To High(A) Do
    S := S + AnsiChar(Chr(A[i]));
  Edit1.Text := S;
end;