[M.A.D.M.A.N.]

Код:

Var InStr:String;
Begin
    InStr:=ListBox.Strings[{Index}];
    InStr:=Copy(InStr,1,{Нужное количество символов});    
End;