[[Bicho]]

Puedes probar algo así:

Código Delphi [-]
var Campo : String; //aqui almacenaremos el valor del campo que deseas insertar
     i : Integer;
begin
   for i := 0 to List.Items.Count - 1 do begin //recorremos la lista para obtener los marcados
       if List.Selected[i] then //Si está marcado lo añadimos a la tabla
         Campo := Campo +  List.Items.Strings[i];
   end;
end;

Saludos