text := 'abcdefghi';
Label1.Caption := '';
for i := 1 to length(text) do
  begin
    Label1.Caption := Label1.Caption + text[i];
    for j := 1 to 10 do
      begin
         sleep(10);
         Application.ProcessMessages;
      end;
  end;