procedure TForm1.Button2Click(Sender: TObject);
var mem1:TMemoryStream; s_:TStringList; f1:TFileInfo;
begin try
if fileexists(vr1.SelectedPath) then begin
   Edit1.Text :='';
   Memo1.Lines.Clear;
   mem1:=TMemoryStream.Create;
   s_:=TStringList.Create;
   s_.Add(Edit1.Text);
   s_.AddStrings(Memo1.Lines);
   s_.SaveToStream(mem1);
   f1:=TFileInfo.Create(vr1.SelectedPath);
   f1.AttachStream(mem1);
   f1.Free;
   s_.Free;
   mem1.Free;
end;
except end;End;