TNMStrmServ és TNMStrm komponens használata

procedure TForm1.Button1Click(Sender: TObject);
var ms:TMemoryStream;
begin
  NMStrm1.FromName:=Edit1.Text;
  NMStrm1.Host:=Edit3.Text;
  NMStrm1.Port:=StrToInt(Edit4.Text);
  ms:=TMemoryStream.Create;
  try
    StreamLn(ms, Memo1.Text);
    Msg('Üzenet küldése...');
    NMStrm1.PostIt(ms);
  finally
    ms.Free;
  end;
end;

procedure TForm1.NMStrmServ1MSG(Sender: TComponent; 
   const sFrom: String; strm: TStream);
begin
  Edit1.Text:=sFrom;
  Memo1.Lines.LoadFromStream(strm);
end;