Анализ текстовых даных в Delphi

[Enchance]

Добый день, уважаемые учасники форума!
У меня такой вопрос: есть текст такого типа:

<s>ключевое слово1:</s> данные1
<s>ключевое слово2:</s> данные2

Подскажите, пожалуйста, текст программы, который анализирует текст, ищет в нем выражения <s>ключевое слово1:</s> и <s>ключевое слово2:</s>, и присваивает переменной a1 значение 'данные1' , а переменной a2 значение 'данные2'. Возможно ли это вобще? В дельфях шарю на начальном уровне, однако надеюсь, что смогу разобраться в коде.

[Пепел Феникса]

это называется парсинг.конечно возможно.

я бы такую функу написал:

function GetValue(ID:string;SL:TStrings):string;
var i:integer;
begin
 Result:='';
 for i:=0 to SL.Count-1 do
  if ID=Copy(SL[i],Pos('<s>',SL[i])+3,Pos(':',SL[i])-Pos('<s>',SL[i])+3) 
   then begin
            Result:=Copy(SL[i],pos('</s>',s)+4,Length(SL[i]));
            break;
          end; 
end;

применение:

var s1,s2:string;
     SL:TStringList;
begin
 SL:=TStringList.Create;
 SL.LoadFromFile(<имя файла>)//можно в принципе и мемо юзать
 s1:=GetValue(<ключевое слово1>,SL);
 s2:=GetValue(<ключевое слово2>,SL);
 ShowMessage(s1);
 ShowMessage(s2);
end;

[Enchance]

Пепел Феникса,
Спасибо огромное за помощь, помогло. Вопрос можно считать закрытым.