ช่วยอธิบายโคดนี้หน่อยคับ

ช่วยอธิบายอะ เขียนคอมเม้นเป็นภาษาไทยอะคับขอละเอียดหน่อยนะ

###########################


unit Unit1;

interface

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

type
TfrmEmailAddress = class(TForm)
edtName: TEdit;
edtPhone: TEdit;
edtEmail: TEdit;
edtPassword: TEdit;
bitRegister: TBitBtn;
bitClear: TBitBtn;
bitClose: TBitBtn;
sttName: TStaticText;
sttTelephone: TStaticText;
sttEmail: TStaticText;
sttPassword: TStaticText;
procedure bitCloseClick(Sender: TObject);
procedure bitClearClick(Sender: TObject);
procedure bitRegisterClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmEmailAddress: TfrmEmailAddress;

implementation

{$R *.dfm}

procedure InformUser();
var strInform : string;
begin
strInform := '';
strInform := strInform + 'ขอแนะนำท่านเข้าสู่ระบบลงทะเบียนอีเมล์ฟรี' + #13#10;
strInform := strInform + 'กรุณากรอกชื่อ,เบอร์โทรศัพท์ ให้ครบถ้วน' + #13#10;
strInform := strInform + 'กรอกอีเมล์ที่ท่านต้องการได้ตามใจชอบ, ส่วนระหัสผ่านนั้นมีคำแนะนำดังนี้' + #13#10;
strInform := strInform + 'ตั้งให้ยาวเกิน 4 ตัวอักษร และอย่าตั้งให้เดาได้ง่าย' + #13#10;
ShowMessage(strInform);
end;

procedure TfrmEmailAddress.bitCloseClick(Sender: TObject);
begin
close; // end of programend;

procedure TfrmEmailAddress.bitClearClick(Sender: TObject);
begin
edtName.Text := ''; // unedtName
edtPhone.Text := ''; // unedtPhone
edtEmail.Text := ''; // unedtEmail
edtPassword.Text := ''; // unedtPassword
end;

procedure TfrmEmailAddress.bitRegisterClick(Sender: TObject);
begin

if (edtName.Text = '')or(edtPhone.Text = '')or(edtEmail.Text = '') then
begin
InformUser;
exit
end;
end;

procedure CheckPassword(strName:string; strEmail:string; strPassword:string);
begin



if Length(strPassword)<4 then
begin
ShowMessage('คุณต้องกำหนดรหัสผ่านให้ยาวอย่างน้อย 4 ตัวอักษร');
exit
end;

if (strPassword = strName)or(strPassword = strEmail) then
begin
ShowMessage('รหัสผ่านต้องไม่ตรงกับชื่อที่กรอก และไม่ตรงกับอีเมล์ที่ขอ');
exit
end;
if (strPassword = '1234')or(strPassword = 'abcd')or(strPassword = '1111') then
begin
ShowMessage('รหัสผ่านต้องไม่เป็นคำที่เดาได้ง่ายๆ');
exit
end;

ShowMessage('อีเมล์ของคุณคือ ' + strEmail + '@infopress.net' + #13#10 + 'รหัสผ่านคือ ' + strPassword);
end;

procedure TfrmEmailAddress.FormCreate(Sender: TObject);
begin
InformUser;
end;

end.