Except on E : EOraError do
begin
if E.ErrorCode = ? then result := 'The same data exists'
else if E.ErrorCode = ? then result := 'Required input is omitted'
else if E.ErrorCode = ? then result := 'A value exceeding the specified level has been entered'
else if E.ErrorCode = ? then result := 'Data type does not match'
else result := E.Message ;
Exit;
end;
End;