try
// Some code
except
on e:FTSPCException do
begin
// e.ErrorCode = error code
// e.ErrorMessage = error code description
application.MessageBox(PChar('Error: ' +
inttostr(e.ErrorCode) + ' - ' +
e.ErrorMessage), 'Error!', MB_OK);
end;
end;