请帮忙看看？？？ (100分)

if Trim(Edit1.Text)='' then Exit;
if (Key=118) or (Key=116) then
MainForm.HIHI:=MainForm.HIHI+Key
else
MainForm.HIHI:=0;
if (Key=116) and (MainForm.HIHI=234) then
begin
StrPCopy(SoundFile,SNDPATH+'boing.wav');
if NowPlaySound then PlaySound(SoundFile,0,SND_ASYNC);
LeftRight:=1;
timestring:='0824';
MainForm.HIHI:=0;
WriteInDbf;
Edit1.Text:='';
end
是什么意思？？？？ 谢谢！！！

if Trim(Edit1.Text)='' then Exit;//如果Trim(Edit1.Text)为空则退出，Trim()函数用于去除字符串头尾的空格
if (Key=118) or (Key=116) then//如果Key是F7或F5
MainForm.HIHI:=MainForm.HIHI+Key//MainForm.HIHI增加F7或F5的序列值（ASC码）
else
MainForm.HIHI:=0;
if (Key=116) and (MainForm.HIHI=234) then
begin
StrPCopy(SoundFile,SNDPATH+'boing.wav');//把String类型的SNDPATH+'boing.wav'转换成PChar类型的SoundFile
if NowPlaySound then PlaySound(SoundFile,0,SND_ASYNC);//如果NowPlaySound为True则调用系统播放器以异步方式播放SoundFile
LeftRight:=1;
timestring:='0824';
MainForm.HIHI:=0;
WriteInDbf;//猜则是把什么写到DBF文件
Edit1.Text:='';
end