unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
edit2.Text :='';
edit2.Text :='char(';
    for i:=1 to  length(edit1.Text)     do
      begin
          edit2.Text :=edit2.Text+ inttostr((ord(edit1.text[i])));
          if i <> length(edit1.Text)    then edit2.Text:=edit2.text+',';
      end;
         edit2.Text:=edit2.text+')';
end;

end.