procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Font.Name :='Symbol'; Edit1.Font.Size := 14; Edit1.Text:=Chr(165); end;