Exception reporting - VCL

[Raj]

Hi
I am using the follwoing calls to report/log the exceptions of
functions. This works ok. But when the code grows, this makes the code
a lot clumsy. Can you please suggest some ways of smart reporting
using builder.
Thanks
Raj
if(FunctionReturns == Error)
{
Memo1->Lines->Append("instanceTest->LoadInputImageFile()");
Memo1->Lines->Append( A2iARC_GetLastError ( ));
Memo1->Lines->SaveToFile("C:\\Test_Project.txt");
}
else
{
Memo1->Lines->Append("instanceTest->LoadInputImageFile()");
Memo1->Lines->Append("OK");
Memo1->Lines->SaveToFile("C:\\Test_Project.txt");
}