Из memo в label

[Dj_DeVaIs]

Добрый день.
Ситуация следующая есть memo с текстом:
{"id":"oQuhm","plannedUtcDateTime": "2014-04-}

мне надо что бы программно можно было найти все что находиться после {"id": и записать его в label.
вот это что бы записывал "oQuhm"

даже мыслей нет с чего начинать. думал обрезать но не получается. Что посоветуете или может пример.

Спасибо заранее.

[puporev]

//вот это что бы записывал "oQuhm"
s:=Memo1.Text;
Label1.Caption:=copy(s,pos(':',s)+1,pos(','s)-pos(':',s));

[XE5]

Универсальная функция, применимая в 90% случаев, когда нужно из строки получить определённый фрагмент

function ParseURL(T_, ForS, _T: string): string;
var a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then Exit;
a := Pos(T_, ForS);
if a = 0 then Exit else a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then Result := Copy(ForS, 1, b - 1);
end;

Пример использования в конкретно этой задаче

var
  s: string;
begin
  s := '{"id":"oQuhm","plannedUtcDateTime": "2014-04-}';
  ShowMessage(ParseUrl('"id":"', s, '"'));