[AlexSku]

Можно начать CLX-приложение. Далее пишем:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= #$0027; //это апостроф. А это - иероглиф: #$4e0d;
end;