Обрезание строки!

[Qwest]

Подскажите как обрезать не нужные симовлы после пробела

НапримерСторка: Ц0583 справка
Из неё нужно получить после обрезания: Ц0583


Помогите!!!

 

[kaa]

Стр = "Ц0583 справка";
Поз = Найти(Стр," ");
Стр = Лев(Стр,Поз-1);