Поиск в строке Мемо до пробела и далее до пробела

 str1=Form1->Memo1->Lines->Strings[i2]
//str1="доска 90.1 60.2 90.3";

float zn1, zn2,zn3;

int ka,i1,i2,i3,n;
loat zn1,zn2,zn3,zn4
AnsiString str1,str2,str3,str4,str5,str6,kallutro,belkiutro,jiriutro,uglevodutro;
void __fastcall TForm2::Button1Click(TObject *Sender)
{
for(i1=1;i1<ValueListEditor1->RowCount;i1++)
    {
        str3=ValueListEditor1->Keys[i1];//строка для поиска
            for(i2=0;i2<Form1->Memo1->Lines->Count;i2++)//ищем совпадение  в "БД"
            {
                 str1=Form1->Memo1->Lines->Strings[i2];
                 str2=str1.SubString(0,str1.Pos(" ")-1);//обрезаем название(буквы)
 
                 if(str2==str3)             //если совпало,т.е. нашли
                 {
                     str4=str1.Delete(1,str2.Length()+1);   //обрезаем название от чисел
                     kallutro=str4.SubString(0,str4.Pos(" ")-1);//берем 1 число
                     zn1=StrToFloat(kallutro);//перевод в число!
                      str5=str4.Delete(1,kallutro.Length()+1);//обрезаем до 2 числа
                     belkiutro=str5.SubString(0,str5.Pos(" ")-1);//берем 2 число
                     zn2=StrToFloat(belkiutro);  //перевод в число!
                      str6=str5.Delete(1,belkiutro.Length()+1);//обрезаем до 3 числа
                     jiriutro=str6.SubString(0,str6.Pos(" ")-1);//берем 3 число
                     zn3=StrToFloat(jiriutro);  //перевод в число!
                     uglevodutro=str6.Delete(1,jiriutro.Length()+1);//обрезаем до 4 числа
                         zn4=StrToFloat(uglevodutro);  //перевод в число
                 }
            }
      }