crear array

[Cosgaya]

hola estoi averiguando como se crean arrays en delphi7 pero no me sale

hasta ahora tengo esto:

en type

Código Delphi [-]
TArraystr = array of string;

despues en un evento de boton on click

Código Delphi [-]
var
pass: tArrayStr;
num:integer;
begin
pass[0]:='a';
pass[1]:='b';
pass[2]:='c';
pass[3]:='d';
pass[4]:='e';
pass[5]:='f';
pass[6]:='g';
num:=0;
while (num <=6)do
begin
memo1.lines.add(pass[num]);
num := num +1;
end
end;

me da error y no consigo averiguar como continuar, si me pudieran ayudar
gracias