[Delphi] напишите, пожалуйста простой алгоритм 500

[C o m p a s]

Вот есть такая комбинация.. .
текст ={ ...номер: 999999;}
как мне выделить сам номер из значений "номер" и ";"
текст записан в мемо1

[9 LoVe EleKtRo]

Не чего не понял

[Сталин]

var a,b:integer;
begin
a:=Pos('9',Memo1.Text);
b:=Pos(';',Memo1.Text);
Memo1.SelStart:=a;
Memo1.SelLength:=abs(b-a);
end;