度数转化成度分秒形式(20分)

我现在想把一个度数转化成度分秒的形式，举例说：
一个Edit1用于让使用者输入一个度数，是十进制的，比如Edit1.Text:=20.67°；
一个Button1,点击一下后把输入的Edit1.Text转化为度分秒的形式，然后在Edit2中显示出来,Edit2.Text:=20°40’12”的形式。
请给出一个代码！
谢谢！