procedure TForm1.get_finfo_tango();
var mem1:TMemoryStream; s_:TStringList; f1:TFileInfo;
begin
if fileexists(vr1.SelectedPath) then begin
   f1:=TFileInfo.Create(vr1.SelectedPath);
   mem1:=TMemoryStream.Create;
   s_:=TStringList.Create;
   if f1.RetrieveStream(mem1) then begin
      s_.LoadFromStream(mem1);
      if s_.Count > 0 then begin
         Edit1.Text:=s_.Strings[0];
         s_.Delete(0);
         Memo1.Lines := s_;
      end;
   end else begin
      Edit1.Text := '';
      Memo1.Lines.Clear;
   end;
end;
f1.free;
s_.free;
mem1.free;
End;