Как выдрать из текста вес ???

[kakawkin]

В общем есть текстовый фаил с таким содержимым:

Зубков Константин01.06.2001    2 юн.    6 гуп    28.0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Кусеев Салават    11.11.1992    КМС    6 гуп    68.0  кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Ступин Денис    02.09.1998    1 разряд    6 гуп    31.9 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Исмагилов Ильнур08.12.1996    2  разряд    6 гуп    44.1 кг ,спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Имаева Карина    14.05.2000    1 юн.    4 гуп     40.0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Мамлеев Лев    01.01.2001    3 юн.    6 гуп    52 .0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Кондуров Марк    28.09.2000    2 юн.    5 гуп    37.6 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Загитова Диана    15.03.1999    3 юн.    6 гуп    43.0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Загитов Кадир    16.04.2000    3 юн.    6 гуп    28.4 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Ахуньянов Булат    27.04.2000    1 юн.    5 гуп    28.0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Аделя Шафикова    19.04.1999    1 юн.    4 гуп    31.7 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Синагатуллин Тимур06.02.1999    2 юн.    6 гуп    50.4 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Кильдибаев Рамиль05.08.1999    2 юн.    6 гуп    37,5 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н.
Мальшакова Таисия20.11.1999    3 юн.    6 гуп    34,0 кг, спарринг    РБ    респ.Башкортостан    Уфа    «ДЮСШ№32»    Набиуллин Р.Н

Каким алгоритмом можно выбрать с каждой строки его вес.
Вот что у мну получилося:

for a:=0 to memo1.Lines.Count-1 do begin
 b:=Copy(Memo1.Lines[a],Pos('êã',Memo1.Lines[a])-5,4);
 showmessage(b); end;

Но он гавеный какойто вышел. Я вот думаю а если попробовать так:
1) array:array[1..10] of char=('1','2','3','4','5','6','7',' 8','9','0');
for a:=0 to memo1.Lines.Count-1 do begin
b:=Memo1.Lines[a];
for d:=15 to length(b) then begin

начинать с 15 знака т.к. в анчале фамилия и дата рождения.
И надо както сравнивать с массивом array мол :
for d:=15 to length(b) then begin
if (b[d]=array[1]) or (b[d]=array[2]) и т.д.
сравнивать мол если 2 передних знака равны числам то это и есть масса тела. а дальше +3 знака от позии массы чтобы глянуть - если там число то округляем массу, а если пусто то значит массу нашли

Только незнаю как записать на дельфине этом((((((((((( нуждаюсь в помощи

[Mad_Cat]

ищи , и копируй до второго предыдущего пробела)

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  s:='Зубков Константин01.06.2001    2 юн.    6 гуп    28.0 кг, спарринг    РБ';
  s:=StringReplace(s,' ','',[rfReplaceAll, rfIgnoreCase]);
  s:=copy(s,Pos('гуп',s)+3,4);
  showmessage(s);
end;