AYUDENME PORFA CON UN problema de bucles FOR x faaaa URGENTE!!!!!!

[MIP]

Espero que te sirva y que sea lo que te piden... (no se en que entorno lo necesitas)
Yo he usado una ventana con un Edit, un Boton y un Memo.

int valor=Edit1->Text.ToInt();
int valorvariable=0;
int direccion=1;
AnsiString cadena="";
Memo1->Clear();
for (int i=0;i<valor;i++)
{ cadena="";
for (int j=0;j<valor;j++)
{ valorvariable=valorvariable+1*direccion;
cadena=cadena+AnsiString(valorvariable)+" ";
}
Memo1->Lines->Add(cadena);
valorvariable=valorvariable+valor+direccion;
direccion=direccion*(-1);

}