请大家帮忙看看这个程序的错误原因？

这是我自己刚开始学习程序设计写的，照书抄都有错误，真不明白是怎么回事？

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
EdtDeg: TEdit;
BtnDegToRad: TButton;
BtnRadToDeg: TButton;
EdtRad: TEdit;
procedure BtnDegToRadClick(Sender: TObject);
procedure BtnRadToDegClick(Sender: TObject);
function DegToRad(Deg:Double):Double;
function RadToDeg(Rad:Double):Double;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BtnDegToRadClick(Sender: TObject);
var
Deg:Double;
Rad:Double;
begin
Deg:=StrToFloat(EdtDeg.Text);
Rad:=DegToRad(Deg);
EdtRad.Text:=FloatToStrF(Rad,ffFixed,7,3);

end;

procedure TForm1.BtnRadToDegClick(Sender: TObject);
var
Deg:Double;
Rad:Double;
begin
Rad:=StrToFloat(EdtRad.text);
Deg:=RadToDeg(Rad); //弧度转换为度
EdtDeg.Text:=FloatToStrF(Deg,ffFixed,7,3);
end;

function TForm.RadToDeg(Deg:Double):Double; //度转换为弧
begin
Result:=Deg/Pi*180;
end;
function TForm.DegToRad(Rad:Double):Double; //度转换为弧
begin
Result:=Rad/180*Pi;
end;

end.

有人在吗？在线等待啊！

如果哪位大侠有msn的话，欢迎直接加我msn联系讨论，我想从现在起开始学习程序设计，选定目标就是dephi程序开发，有计算机基础，但没有编程基础，不知道能不能学得会，希望论坛中的各位前辈多多指点，以后小弟会经常来论坛求助，希望大家能多多帮忙！在此万分感激了！

本人msn:liyigui1982@hotmail.com

欢迎大家加我交流！

function DegToRad(Deg:Double):Double;
function RadToDeg(Rad:Double):Double;

function TForm.RadToDeg(Deg:Double):Double; //度转换为弧
begin
Result:=Deg/Pi*180;
end;
function TForm.DegToRad(Rad:Double):Double; //度转换为弧
begin
Result:=Rad/180*Pi;
end;

多看看书，一句一句的对，问题在这里，如果书本上肯定完全这样，再PM我

错误如下
1、函数实现与声明不一致，里面的参数名不一致
2、function TForm.DegToRad(Rad:Double):Double;
function TForm.RadToDeg(Deg:Double):Double; 两处应为TForm1

要多看书，有问题多想，多比较