// Способ первый
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  while Pos( ' ', s ) > 0 do
  Delete( s, Pos( ' ', s ), 1 );
  Edit1.Text := s;
end;

// Способ второй
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  s := StringReplace( s, ' ', '', [rfReplaceAll] );
  Edit1.Text := s;
end;

---

procedure TForm1.Button3Click(Sender: TObject);
var
  s: string;
begin
  s := ' Тестовая строка ';
  if IsDelimiter( 'е', s, 5 ) then
  ShowMessage( 'Такая буква существует' )
  else
  ShowMessage( 'Такая буква не существует' );
end;

---

// Способ первый
var
  Form1: TForm1;
  Str: string = ' Добро пожаловать на сайт http://delphihelp.ucoz.ru ';

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Caption := Str;
  Str:= Copy( Str, 2, Length( Str )-1 ) + Str[1];
end;

// Способ второй
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  s := Caption;
  for i := 1 to Length( s )-1 do
  s[i] := Caption[i+1];
  s[Length( s )] := Caption[1];
  Caption := s;
end;

---