Manipular caracteres ascii extendido

[r1d2m3]

Hola a todos, tengo el siguiente requerimiento: necesito insertar en un componente tritchview una serie de caracteres ascii extendido para crear una forma, que puede ser rectangular o cuadrada, recuerdo haber hecho esto hace mucho tiempo usando los caracteres ascii 218, 217, 192, 196, etc, etc, si recuerdan estos caracteres son como los bordes de una forma rectangular. Como dije antes, estos caracteres los usaba cuando programaba en dbase, foxbase, incluso hasta en cobol, el uso que les daba era crear unos vistosos listado con los títulos recuadrados con estos caracteres.

Si alguien me recuerda como insertar estos caracteres en un trichview, me ayudarían un montón.

Gracias por la lectura y saludos a todos.

[cloayza]

Deberias hacer lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
     memo1.Font.Charset:='OEM_CHARSET';
     memo1.Font.Name :='Courier New';
     memo1.lines.add(Format('%s %s %s %s',[chr(218),chr(217),chr(192),chr(196)]));
end;

Saludos...

[r1d2m3]

Ok, gracias por tu ayuda.

Saludos.