Ayuda con lector de caracteres

[bigguntm]

Hola a todos, hoy traigo un problemita, en un listbox tengo miles de caracteres cada linea contiene algo distinto, y quisiera que en un edit se leyera los primeros caracteres antes del espacio,

ejemplo..

clubdelphi 2.0

cuando haga click en clubdelphi 2.0, el edit fuera igual a 'clubdelphi' nada mas y que no le prestara atencion a el '2.0'

uso esto para leer la cantidad de caracteres que quiera, pero noc modificarlo para que solo lea los caracteres antes del espacio!

Código Delphi [-]
Edit.text := copy(micadena,2,45);

Saludos!!