local lnIndex, lcValue
lcValue = ''
with Thisform.ListBox
     for lnIndex =  1  to .ListCount
          if .Selected(m.lnIndex)
              lcValue = m.lcValue + .List(m.lnIndex,  1 ) + '; '
          endif
     endfor   
endwith
* сохраняем в таблице
replace value with m.lcValue

with Thisform.ListBox
     for lnIndex =  1  to .ListCount
          .Selected(m.lnIndex) = .List(m.lnIndex,  1 ) + '; ' $ alltrim(table.value)
     endfor   
endwith

// есть таблица языков
create table 'language' (;
       languageid i, ;
       name c( 30 ), ;
       primary key languageid tag langid ;
)
// есть таблица личностей
create table 'person' ( ;
      personid i, ;
      name c( 30 ), ;
      primary key personid tag personid ; 
)
// есть таблица, которая содержит информацию о том, какими языками владеет личность
// именно эта таблица и есть наше "составное поле"
create table 'spoke' ( 
    personid i not null references person tag personid,;
    languageid i not null references language tag languageid, ;
    spoke l not null default .f., ;
    primary key bintoc(personid,  4 ) + bintoc(languageid,  4 ) tag spokeid ;
)