有关拦截系统错误信息和xp风格控件的问题！

Question

1：拦截系统信息
在delphi中提供了大量的系统错误提示，比如连不上数据库时会弹出报错信息，我想知道怎么把系统的报错信息拦下来，在用自己写的比如showmessage来替代，我知道在pb里有个相关的功能可以，不知道delphi里有没有，有的话还请指点。
2：xp风格控件
在d7中提供了几个xp风格的控件，可是我完全不知道怎么用，还请懂的人指点下。

Answer 1

你还不如用
try
  系统错误
except
  showmessage('你的提示');
end;
如果要更详细点可以用
try
  系统错误
except
    on E: exception do
    begin
      if Pos('错误1',E.Message)>0 then
      begin
        showmessage('你的提示1');
      end
      else if Pos('错误2',E.Message)>0 then
      begin
        showmessage('你的提示2');
      end;
      ...
    end;
end;

Answer 2

1.用try...except就行了，比如说
  如何判断输入到edit中的数据是不是一个有效的日期 
function StrIsDateTime(S: String): Boolean;
begin
  try
    StrToDateTime(S);    
  except
begin
    showessage('no');
      exit;
  end;showmessage('ok');
end;

Answer 3

用try...except就行了
没用过d7

Answer 4

菜单和工具都要 
如何判断输入到edit中的数据是不是一个有效的日期 
function StrIsDateTime(S: String): Boolean;
begin
  try
    StrToDateTime(S); 怎么找类似的系统函数，比如连不上数据库   
  except

Answer 5

又出问题了，我用了个dbnavigator的控件，如何在判定是在某个字段输入时出的错并且做相应的拦截呢？（解决即另外给分）