сервер клиент indy

[мандарин]

клиент indy записывает в массив текст и отпровляет его серверу а он должен его записать в файл но почемуто не записывает подскажите в чем моя ошибка

{сервер}

var
mas: array [1..500] of string;
i: integer;
fail3 : TextFile;
begin
AThread.Connection.ReadBuffer(mas,5 00);
AssignFile(fail3, 'd:\папка\сервер\03.11.2003\Event.l og');
for i:=1 do 500 to
begin
append(fail3);
Writeln(fail3, mas[i]);
end;
CloseFile(fail3);
end

{********************************** ************}
client
{********************************** *********}
var
bb_mas: array [1..500] of string;
i: integer;

begin
for i:=1 to 500 do
begin
bb_mas[i]:=('text');
end;
client1.WriteBuffer(bb_mas,500,fals e);

end;

[Jeni]

Сообщение от мандарин

{сервер}
var
mas: array [1..500] of string;
i: integer;
fail3 : TextFile;
begin
AThread.Connection.ReadBuffer(mas,5 00);
AssignFile(fail3, 'd:\папка\сервер\03.11.2003\Event.l og');
for i:=1 do 500 to
begin
append(fail3);
Writeln(fail3, mas[i]);
end;
CloseFile(fail3);
end

Думаю, надо объявлять массив так
mas: array [1..500] of Char; или mas: array [1..500] of Byte;
а иначе получается попытка считывания в массив не данных, а ссылок, ведь массив строк - это массив ссылок на строки, а сами строки еще нужно создавать/считывать отдельно.
И еще, зачем каждый раз вызывать Append(...)? Ее нужно вызвать только один раз после AssignFile.

Сообщение от мандарин

{client}
var
bb_mas: array [1..500] of string;
i: integer;
begin
for i:=1 to 500 do
begin
bb_mas[i]:=('text');
end;
client1.WriteBuffer(bb_mas,500,fals e);
end;

Здесь тоже идет попытка передать не сами строки, а ссылки на них, причем "битые". Наверное нужно или объединить все строки в одну (с какими-то разделителями) или записывать в буфер каждую строку отдельно (в цикле).