练手.txt

对于Delphi程序进行format source的一个插件。

请格式化以下代码：(20分)
然后注释：(20分)
解注:(20分)
(目前只针对要影响到格式化的保留字才转为小写)

Procedure   TMainForm.WMDropFiles(var  Msg: TWMDropFiles);
Var
CFileName:         array[0..MAX_PATH] of  Char;
Begin
Try
if DragQueryFile(Msg.Drop,0,CFileName, MAX_PATH)>0     then
Begin
CheckFileSave;
PerformFileOpen(CFileName);
Msg.Result:=0;
End;
Finally
DragFinish(Msg.Drop);
End;
End; 

procedure SaveFile;
var
FileStr, FilePureName: string;
FileStream: TMemoryStream;
begin
if length(FileName) = 0 then exit;
FilePureName := ExtractFileName(FileName);
with FormMain do
begin
FileStr := MemoMain.Lines.text;
Bar.SimpleText := FilePureName + '，加密...';
FileStr := FILEHEAD + StrToHexStr(FileStr);
Bar.SimpleText := FilePureName + '，保存...';
try
FileStream := TMemoryStream.Create;
FileStream.SetSize(length(FileStr));
FileStream.position := 0;
FileStream.WriteBuffer(FileStr[1], FileStream.size);
try
FileStream.SaveToFile(FileName);
finally
Bar.SimpleText := FilePureName + '，完成！';
end; 
finally
FileStream.Free
end; 
end;
end;


请将以下大五码内容转国标汉字：(10分)

╭畃决ひ