刚介入DELPHI,看到这样一块代码,求高手给下各句的意思~~

procedure TInsertSortForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then
begin
if Edit1.Text <>'' then
N:=StrtoInt(Edit1.text);
Edit1.Text := '';
SingleChainList.InsertSorting (N);
end;
end;

procedure TInsertSortForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then//如果輸入回車鍵
begin
if Edit1.Text <>'' then　//如果edit1控件中不為空
N:=StrtoInt(Edit1.text);//將edit1中的內容由字符串轉化為整數賦給變量N
Edit1.Text := '';//edit1清空
SingleChainList.InsertSorting (N);//在SingleChainList控件按排序的方式插入N的
end;
end;

我原想回答，不过斑竹写的不错，支持一下，不过，问问题的怎么不答谢一下呢？

学习一下！

有些人很忙,心存感激而未能及时答谢;
有些人很拽,获得恩惠却认为天经地义.

楼上的两句话好有哲理啊,看来我是第一种啊谢谢斑竹啊!!!