如何改进--------这个通用的检测用户输入的函数?

偶做了一个函数..如果用户,在增加,或修改操作时..
如果不输入数据..就提示输入..但问题是,这个做出来的功能,一点也不友好..如何改进?
//一定要输入数据
procedure TBaseShowForm.KeyDataPress(Sender: TObject);
begin
    if Not (Sender is TWinControl) then Exit;    if (Sender is TDBEdit)  then
    begin
        if (TDBEdit(Sender).Field.AsString='') then
        begin
          ShowMsg('请在这里输入数据! ',3);
          TDBEdit(Sender).SetFocus;
          exit;
        end;
    end; 
end;