300分求NMPOP31DecodeStart(AnsiString &FileName)和NMPOP31DecodeEnd(TObject *Sender)还有SMTP的两个函数 ,这四个函数怎么写(这是不是

Question

从NetFast的help里抄来的例子：
====================================procedure TForm1.NMPOP31DecodeStart(var FileName: String);
var
  S: String;
begin
  S := FileName;
  if InputQuery('Save File Attachment', 'Filename?', S) then
    FileName := S;
end;procedure TForm1.NMSMTP1EncodeStart(Filename: String);
begin
  Memo5.Lines.Add('Encoding '+FileName);
end;procedure TForm1.NMSMTP1EncodeEnd(Filename: String);begin
  Memo5.Lines.Add(FileName+' encoded');
end;