Работа с TStringList

Подскажите в чем моя ошибка никак не могу понять

public:
__fastcall TForm1(TComponent* Owner);


TStrings *After_Step1;


{
OpenDialog1->Execute();
TStrings *temp;
temp=new TStringList;

After_Step1=new TSringList;//билдер ругается

AnsiString str, buf, title, str_end;
int n=0, l;
for (int i=0; i < OpenDialog1->Files->Count; i++)
{
temp->LoadFromFile(OpenDialog1->Files->Strings);
n=temp->Count;
str=temp->Strings[0];
l=str.Length();
title=str.SubString(2, l);
for (int j=4; j < n; j++)
{
str=temp->Strings[j];
l=str.Length();
str_end=str.SubString(2, l);
After_Step1->Add(title+str_end);
}
}
}

билдер выдает:
[BCC32 Error] part1.cpp(37): E2303 Type name expected
[BCC32 Error] part1.cpp(37): E2034 Cannot convert 'int *' to 'TStrings *'
[BCC32 Error] part1.cpp(37): E2379 Statement missing ;


Пробовал так, те же косяки выдает:
{
OpenDialog1->Execute();
TStrings *temp;
temp=new TStringList;

TStrings *After_Step1;
After_Step1=new TSringList;//билдер ругается

AnsiString str, buf, title, str_end;
int n=0, l;
for (int i=0; i < OpenDialog1->Files->Count; i++) {
temp->LoadFromFile(OpenDialog1->Files->Strings);
n=temp->Count;
str=temp->Strings[0];
l=str.Length();
title=str.SubString(2, l);
for (int j=4; j < n; j++) {
str=temp->Strings[j];
l=str.Length();
str_end=str.SubString(2, l);
After_Step1->Add(title+str_end);
}
}
}