[MrDiG]

Вопрос уже кое-где обсжудался. Проблема в нумерации массива. Но какая-то странная.

В Memo строки. Нужно выводить их с задержкой в две секунды на Label или на StatusBar.

Код:

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
  for i := 0 to Memo3.Lines.Count - 1 do
    ShowMessage(Memo3.Lines[i]);
    Label4.Caption := Memo3.Lines[i];
    //StatusBar1.Panels[0].Text:=Memo3.Lines[i];
    sleep(2000);
 end;

Вывод в ShowMessage - работает. Но вроде без задержки. Вывод на Label или StatusBar нет. Мало того что не отображается (кстати, наверное, нужно перерисовывать?) так и выкидывает ошибку с размерностью массива.
И прицепом маленький вопросик - есть ли в Delphi аналог функции trim() - обрезка пробелов с концов строки?