function extract (const ainputstring : string; buf : string) : tstringlist;
var
  r : tregexpr;
  f : tstringlist;
begin
  f := tstringlist.create;
  r := tregexpr.create;
  try
    r.expression := buf;
    if r.exec (ainputstring) then
      repeat
        f.add (r.match [0]);
      until not r.execnext;
  finally r.free;
  end;
  result := f;
end;

function to_memo (s : widestring) : integer;
begin
  if extract (s, 'http[^"]*[^"]') <> nil then form1.memo1.lines.addstrings (extract (s, 'http[^"]*[^"]'));
  result := 1;
end;