var
 s,z:string;
 START_TEXT:string;
 STOP_TEXT:string;
 p:integer;
begin
 z := '';
 s := RichEdit1.text;
 START_TEXT := 'value="';
 STOP_TEXT := '"';
 p := pos(START_TEXT, s);
 if (p > 0) then
 begin
   delete(s, 1, p + length(START_TEXT) - 1);
   p := pos(STOP_TEXT, s);
   if (p > 0) then
   begin
     z := copy(s, 1, p - 1);
     showmessage(z);
   end;
 end;