[v1s2222]

Код:

procedure Delay (Seconds: Real);
var
Later: TDateTime;
begin
Later:= Now + (Seconds / (24.0 * 60.0 * 60.0));
While Now < Later do Application.ProcessMessages;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 0 to Memo1.Lines.Count - 1 do begin
  Label1.Caption := Memo1.Lines[i];
  delay(2);
end;
end;

ЗЫ я ж тебе говорил - sleep тупо полностью замораживает твою программу, поэтому и не получалось у тебя вывести в лейбел...
Надо использовать delay.