数组的数据存储问题。。。(50分)

大家好。。。 假设我定义了四个编辑框（edit1,edit2,edit3,edit4),并且定义一个数组。
idata:arry[0..511] of char;
我怎么才能把四个编辑框的内容存储到数组中间去那。
我知道存储第一个edit1的内容 ：代码如下面
var
infolen:integer;
ki:integer;
begin
for ki:=0 to 511 do

idata[ki]:=#0;
//兄弟，这代码是什么意思
infolen:=length(edit1.text)+length(edit2.text)+length(edit3.text)+length(edit4.text);
if infolen=0 then
showmessage('nihao')
else
begin

for ki:=0 to infolen_1 do
idata[ki]:=edit1[ki+1];
//将第一个编辑框内容读到数组中间去，一个一个字符读进去
问题1： //问题就在这里拉，我怎么才能把四个编辑框内容读就去。
请写出代码好吗？
问题2： 读进去以后，我又怎么把数组内的内容读出到相应的文本框中呢。。
我是一个“新手”，才接触程序员工作，，唉，，搞不定这问题。那我工作都成问题拉。
谢谢拉，兄弟们

有人知道吗？

你不如直接定义string数组更方便点。
var av array[1..4] of string;
begin
//存入.
av[1]:=edit1.text;
av[2]:=edit2.text;
av[3]:=edit3.text;
av[4]:=edit4.text;
//取回
edit1.text:=av[1];
edit2.text:=av[2];
edit3.text:=av[3];
edit4.text:=av[4];

接受答案了.