correction for the code

[julianluthor]

correction for the code posted earlier..

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int DataWidth = Image1->Picture->Width;
int DataHeight = Image1->Picture->Height;

for (int y=0;y<DataHeight;y++)
for (int x=0;x<DataWidth;x++)
Data[y][x] = (Byte)Image1->Canvas->Pixels[x][y];


TStringList*papar = new TStringList;
for (int j=0;j<400;j++)
for (int i=0;i<400;i++)
{
papar->Add(AnsiString(Data[j]));
}
papar->SaveToFile(&quot;Luthor.dat&quot;
delete papar;


}