Не получается вырезать в memo с нужных символов и по....нужные

[donetsk]

В мемо1 есть строка:
session=d6f5255ae5f6&
из неё нужно вырезать d6f5255ae5f6
т.е. спозиционировать курсор от session= и по & и вырезаь,всё, что между.
пробую вот так:

a,c : integer;

begin
a := Pos('?session=',memo1.Text);
c := Pos('&',memo1.Text);
form1.Caption:= inttostr(a)+' '+ inttostr(c);
label1.Caption:=Copy(Memo1.text, a , c-a);

вырезает ?session=d6f5255ae5f6 :(
подскажите как нужно сделать так чтобы отрезать ?session=.

Сейчас сделал 2-й мемо, в который вставляю , после вырезания ?session=d6f5255ae5f6 и там уже отрезаю, всё, что после =, но это не удобно, наверняка можно вырезать сразу всё, что после ?session= , но как?!

Всё бы хорошо,но когда в мемо много строк и символов,тогда почему-то код данный не работает :(

Подскажити как можно вырезать содержимое между символами в мемо.

[podkashey]

label1.Caption:=Copy(Memo1.text, a+8 , c-a-8);
Так как в слове сессшн= 8 символов. ;)))