Убрать лишние пробелы из строки

[SoftKoc]

!Здравствуйте!

TAG с MP3

//" Это все в цикле!
IF OpenDialog1.Files.Strings[N] <> '' then
 begin
  with readID3Tag(OpenDialog1.Files.Strings[N]) do
   begin
    Label1.Caption := Copy(Artist, 0, Length(Artist)) + '!';
    Label2.Caption := Copy(Titel, 0, Length(Titel)) + '!';
   End;
 End;

Проблема заключается в том, что в Label1 и Label2 после того как я получаю данные после данных есть куча пробелов. Вот что-то типа этого!
Xandria...................!
Metallica.....................!
Bullet For My Valentine.......................... ..............!

Как мне их избавиться! У разных треков по разному где 5, где 10 пробелов!

!Заранее очень благодарен!

Делаю вот так вот:

procedure TForm1.Button3Click(Sender: TObject);
Var
X: Integer;
begin
Label9.Caption:='';
  if OpenDialog1.Execute then
  Begin
    with readID3Tag(OpenDialog1.FileName) do
    begin
      for X:=0 to 30 do
       Begin
        If Artist[X] <> ' ' then
         Begin
          Label9.Caption :=Label9.Caption + Artist[X];
         End;
       End;
      Label9.Caption :=Label9.Caption + '!';
    end;
  End;
end;

С
Xandria!
а вот с этим проблема
BulletForMyValentine!

[Utkin]

Label9.Caption :=Trim(Label9.Caption) + Artist[X];

и

Label9.Caption :=Trim(Label9.Caption) + '!';

Trim - отсечение пробелов по краям строки

ЗЫ. Пользуйтесь кнопкой Правка для добавления инфы в свой пост.

[SoftKoc]

Спасибо сейчас попробую!

[SoftKoc]

Большое спасибо то что нужно!!! =-)))