как записать текст из RichEdit в массив?

[Jane_123]

Всем доброго времени суток! пожалуйста, подскажите, как записать посимвольно текст, вводимый в поле RichEdit, в массив? Язык - Delphi

[vovk]

var
mas:array of char;
i:integer;
str:string;
begin
 //string  и есть авроде массив символов
 str:=RichEdit1.Text;
// на или если очень хочется то можно и так
SetLength(mas,length(RichEdit1.lines.Text));
for I := 0 to length(RichEdit1.lines.Text) - 1 do
 mas[i]:= RichEdit1.lines.Text[i+1];
 end;

[Alexey74]

var a: array[0..9] of string;

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
for i:=0 to richedit1.Lines.Count do
a[i]:= richedit1.Lines[i];
end;

[Jane_123]

а если используется переменная типа thash, то алгоритм аналогичен?

[Grag]

Сообщение от Alexey74

var a: array[0..9] of string;

procedure TForm1.Button1Click(Sender: TObject);
var i:byte;
begin
for i:=0 to richedit1.Lines.Count do
a[i]:= richedit1.Lines[i];
end;

Ну, во-первых for i:=0 to richedit1.Lines.Count-1

а во-вторых, что будет, если richedit1.Lines.Count будет больше 10 ???